IDENTIFICATION 
PRODUCT CODEl MAINOEC-1 1-DXQLA-I-D 
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THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT NDTICF 
AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
CORPORATION, DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBIHTY 
FOR ANY ERRORS THAT MAY APPEAR IN THIS MANUAL, 

THE SOFTWARE DESCRIBED IN THIS DOCUMENT IS FURNISHED UNDER A LICENSE 
AND MAY ONLY BE USED OR COPIED IN ACCORDANCE WITH THE TERMS OF S"CH 
LICENSE, 

DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY FOR THE USE 
OR RELIABILITY OF ITS SOFTWARE ON EQUIPMENT THAT IS NOT SUPPLIED BY 
DIGITAL, 

COPYRIGHT (C) 1974, 1975# 1976, 1977 
BY DIGITAL EQUIPMENT CORPORATION 
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1 

3 

3 

4 

5 

$ 

7 

« 

9 
10 
11 
12 
13 

14 jPRODUCT CODE! 

15 

16 jPRODUCT NAME! 

17 

18 iDATEl 

19 

30 iMAINTAINERt 

31 
32 
33 
34 



SEQ 0003 



lOEfJTIFICATIOK 
MAINDEC-11-DXOAB-M-LA 
DFCXll - 5TSNDAB0 MONlTnR 
APRIL 1977 
DIAGNOSTIC GROUP 
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SEQ 0004 



45 

46 
«7 
48 
49 
50 
51 
53 
53 
54 
55 
56 
57 
58 
59 
60 
61 



000000 
000000 



.LIST SEQ 
.TITLE QABM 
.ASECT 
.30 



DEC/Xll STANDARD MONITOR 



.GLOBL LCnP13,HCOR12,OACNV,BDCMV,WODQ,CLOCIfL,CL0rKP 

.SLOBL KWllL.KWJlPfHMS, HOURS, WCASE.WCASEE, CLOCK 

,GL08L OFFSET, HONGCK,HNGTIM,LCLEAP,PCLKAR,CHKSUM 

.GLOBL TKS,TKB,TPS,TPB,FILCNT, FILLER, SP.OAMNUM, CAST 

.GLOBL MODCNT,MODCTR,PASPEL,PELOC,ALLBK,KTPPES,PWRCNT 

l»»»»»»Iir PUNNING WITH AN 11/60 AND ANY SYSTEM TYPE ERROR OCCURS 
J (TRAP TO 4, ETC.) "LOGBUF" WILL CONTAIN 

f THE CONTF^TS OP SCRATCHPAD T/nfATIONS FBO« 0.177, SCRATCHPAD 

J LOCATIONS 100-107 ARF PRINTED OUT, 

jSWITCH REGISTER OPTIOHSl 

|SR15"1 HALT MODULE AFTER ERROR. 

|SR14»1 INHIBIT MODULE HALT AFTER 20 ERRORS. 

»SR13»1 INHIBIT ERROR PRINT, 

|SR12«1 ENABLE ENDPAS PRINTOUT, 

|5R10»1 PRINT ALL DATA ERRORS IN BUFFER 

|SR9«1 INHIBIT "RELOCATED TO " MESSAGE 

•MODULE STATUS BIT DEFINITIONS! 



BIT 15C1 
BIT 14«1 
BIT 13»1 
BIT 12»1 
BIT 11"1 
BIT 10»1 
BIT 09«1 
ALL O'S 



lOMOD 

MODULE SELECTED 

MODULE DROPPED 

EXTENDED MODULE 

DESELECT IF PROGRAM IS RELOCATED 

DESELECT IF NOT ON AN EVEN 32K OFFSET 

N8KM0D 

SBKMOD 
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sEo poes 













000000 




000001 




000003 




000003 




000004 




000005 




000006 




000006 




000007 








177776 




177776 




177570 








177572 




172516 


80 




SI 


170200 



|» TEW nEriNITIONS. 



PO 
Rl 
P2 
R3 
R4 
R5 
R6 
5P 
PC 

PS 

PSW 
HARDSR 

SSRO 
SSP3 



■ %0 
■%1 
■t2 
«%3 

■%4 
»*5 

•%6 

■*6 
■%7 



IGENEPAL PUPPOSE PEGlSTrp 

ifiENERAl PURPOSE REGISTER 1 

iCENERAL PURPOSE PEGISTEP S 

I GENERAL PURPOSP REGISTER 3 

I GENERAL PURPnSF REGISTER 4 

jGENERAT.. PURPOSF. RFGISTEB 5 

IGENERAL PURPOSE REGISTER « 

IPOINTER TO HARDWARE CSYSTEM DEFAULT) STACK 

JPROGPA" COUNTER 



■177776 iPROCESSOR STATUS REGISTER 
■177776 iPROCESSOR STATUS WORD 
■ 177570 fHAPDWAPE SWITCff REGISTER 

■177572 jMKMOPy VANiCEMENT REGISTER 
•172516 jMEMORY MANAGEMENT REGISTER 3 



WAPREG ■17O200 jBASE ADDRESS OF UNIBUS NAP BOX (U/70) 
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SE3 onns 



82 


076600 


83 


000101 


84 


000102 


85 


000103 


86 


000104 


87 


000022 


88 


000222 


89 




90 


177772 


91 




92 


140000 


93 


040000 


94 




95 


172300 


96 


172302 


97 


172304 


98 


172306 


99 


172316 


100 


172340 


101 


172342 


102 


172344 


103 


172346 


104 


172356 


105 




106 


177600 


107 


177602 


108 


177604 


109 


177616 


110 


177640 


111 


177642 


112 


177644 


113 


177656 



MED 

RD5ERV 

RPPBA 

RDCUA 

PDFGIN 

RDWHMI 

WTWHMI 



■76600 

■ 101 
■102 

■ 103 

■ 104 

■ 022 

■ 222 



PIRORG ■177772 



ilMODE 
SMODE 

KIPDRO 
KIPDRl 
KTPDR2 
KIP0R3 
KIPDR7 
KIPARO 
KIPARl 
KIPAR2 
KIPAR3 
KIPAR7 

UIPDRO 
UIPDRl 
UIPDR2 
UIPDP7 
UtPARO 
UIPARl 
U1PAR2 
UIPAR7 



■140000 
■40000 

■172300 
■172302 
■172304 
■172306 
■172316 
■172340 
■172342 
■172344 
■172346 
■172356 

■177600 
■177602 
■177604 
■177616 
■177640 
■177642 
■T77644 
=177656 



MAINTENANCE EXAMINE AND DEPOSIT INSTRUCTTOV (U/ftO) 

LOG SERVICE PEG. ADR -. P5;aD 

LOG PHYSICAL BUSS ADR. REG. ADR. -- READ 

LOG CURRENT MICRO ADR. REG. ADR, -- READ 

LOG FLAG/INTERRUPT REG, ADR. -- READ 

GEN. WHO AM I PEG, ADR, -- READ 

GEN, WHO A« I RFC-, ADR, -- WOXTE 

PROGRAMMED INTfPPIIPT REQUEST REGISTER 

BIT CONFIGDRATIOV TO I>'DICATE USER MODE IN PSW 

BIT CONFIGURATION TO I^!DIC^TE SUPERVISOR MODE IN PSW 



KERNFL 
KERNEL 
KERNEL 
KERNEL 
KERNFL 
KERNEL 
KERNEL 
KERNEL 
KERNEL 
KERNEL 

USER 
USER 
USER 
USER 
USER 
USER 
USER 
USER 



INSTRUCTION 
INSTRUCTION 
INSTRUCTION 
INSTRUCTION 
INSTRUCTION 
INSTRUCTION 
INSTRUCTION 
INSTRIJCTIOM 
INSTRUCTION 
INSTRUCTION 

INSTRUCTION 
INSTRUCTION 
INSTRUCTION 
INSTRUCTION 
INSTRUCTION 
INSTRUCTION 
INSTRUCTTON 
INSTRUCTION 



PAGF 
PAGE 
PAGF 
PAGE 
PAGE 
PAGE 
PAGE 
PAGE 
PAGE 
PAGE 

PAGE 
PAGE 
PAGE 
PAGE 
PAGE 
PAGE 
PAGE 
PAGE 



DESCRIPTOR 

DESCRIPTOR 

DESCRIPTOR 

DESCRIPTOR 

DESCRIPT"P 

ADDRESS 

ADDRESS 

PDDRESS 

ADDRESS 

ADDRESS 



REGISTER 
REGISTER 1 
REGISTER 2 
REGISTER 3 
REGISTER 7 
REGISTER 
REGISTER 1 
REGISTER 2 
REGISTER 3 
REGISTER 7 



DESCRIPTOR 

DESCRIPTOR 

DESCRIPTOR 

DESCRIPTOR 

ADDRESS 

ADDRESS 

ADDRESS 

ADDRESS 



REGISTER 
REGISTER 1 
REGISTER 2 
REGISTER 7 
REGISTER 
REGISTER 1 
REGISTER 2 
REGISTER 7 
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SEQ 0007 





000004 




000000 




100000 




040000 




020000 




OJOOOO 




004000 




002000 




001000 




000400 




000200 




000100 




000040 




000020 




000010 




000004 




000002 




000001 








000340 




OOOJOO 




000240 




000200 








0057*6 




OJ4646 




005726 




022626 








000100 




000040 




000620 




001130 




031222 


MS 


030072 



PIROt 

OPEN 

BTT15 

BIT14 

BIT13 

BIT12 

BITll 

8TT10 

B1T9 

BITS 

BIT7 

R1T6 

BIT5 

BIT4 

BIT3 

b:t2 

BTTJ 
BITO 

PBTy7 
PBTie 
PRTYS 
PHTY4 

PUSH2 
POPSP 
P0PSP2 

IE 

KBUFL 

lOQL 

TYROL 

TVPLIM 

lOQLIM 



■ lOT 

■ 

slOOOOO 
■40000 
B20000 
■iOOOO 
• 4000 

■ 2000 

■ 1000 

■ 400 

■ 200 

■ 100 

■ 40 
■20 

■ 1" 

■ 4 

■ 2 

■ 1 

■ 340 

■ 300 

■ 240 

■ 200 

■OoS74b 
■024646 
■005726 
■022626 



MAKE THE PIPO CALl 
USE OPEN TO DECLASH 
BIT 15 DKriNITTDN 
BIT 14 DEFINITION 
BIT 13 DEFINITION 
BIT 12 OEFIHITIDW 
BIT U OEFIMTIOM 
BIT 10 DEFINITION 
BIT 5 DEF7NI7IGK 
BIT 8 DEFINITION 
BIT 7 DEFINITION 
6 DEFINITION 
5 DEFINITION 
4 DEFINITION 
3 DEFINITION 
2 DEFINITION 
1 DEFINITIOM 
DEFINITION 



i TRAP THROUGH THE IHT ' 
ALL VARIABLES AS BE?' 



'ECTDR 
?E 3Ti 



BIT 

BIT 
BIT 
BIT 
BIT 
BIT 
BIT 



BIT CONFIGURATION FOR PRIORITY LEVEL 7 IN PSt< 
BIT CONFIGURATION FOR PRIORITY LEVEL 6 IN PSW 
BIT CONFIGURATION FOR PRIOBITY LEVEL 5 IN PSH 
BIT CONFIGURATION FOR PRIORITY LEVEL 4 IN PSW 

fST "(Spj jsiiSEu TO ADD A 5<DSD 70 THE 5TACS 

CMP -(SP),-CSP) ijUSED TO PUT TWO WORDS ON THE STACK 

TST CSP)+ fjUSEO TO DF.LETF. A WORD FROM THE STACK 

CMP CSP)+.CSP)+»USEO TO DELETE TWO WORDS FROM THE STACK 



aBTT6 jDEFINITION OF INTERRUPT FN^BLE BIT FOR ALL PDP-lt DEVICES 

■32. iDEFINITION OF KEYBOARD BUFFER LENGTH (IN WORDS) 

■400. jDEFINITION OF INPUT/OUTPUT SERVICE QUEUE LENGTH(IN BYTES) 

■eon. jDFFINITION of typing queue length (IN BYTES) 

sTYPEQ+TYPQL j DEFINITION OF LAST WORD IN TYPE QUEUE 

■ lOO+IOOL sDFFI'-JITION OF LAST ft'ORO IN I/O QUEUE 
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14Q 














000005 




000020 




000021 




000022 




000024 




000026 




000030 




000032 




000034 




000036 




000040 




000042 




000044 




000046 




000050 




O00O52 




000052 




000054 




000054 




000056 




000060 




000062 




000064 




000066 




000070 




000072 




000074 




000076 




000100 




000102 











ITHF FOLLOWING DEFINITIONS APE THF INDEX VAIjUES USED BY MODE 6 AND 7 
iMONITOR INSTRUCTIONS WHEN REFFRRTNG TD LOCATIONS IN THE HEADER OF A MODULE 

»RFFERENCF USED TH KEEP TRACK OF WRITE BUFFER USAGE 

J POINTS TO THE LOW BYTE OF THE MODULE STATUS i<ORD 

IPOINTS TD THE HIGH BYTF OF THE MODULE STATUS WORD 

IPOINTS TO THF MODULE 'S STIPTING ADDRESS 

IPOINTS TO THE MODULE'S STACK POINTER 

IREFERENCES THE LOCATION KSlfpTNC TRACK OF THE NUMBER OF PASSES 

J REFERENCES THE LOCATION KEFPING TRACK OF THE NUMBER OF ERRORS 

iPOINTS TO WHEPE THE MODULE'S REGISTER CONTENTS ARE STORED 

iPOINTS TO WHERE THE MODULE'S REGISTER 1 

jPOINTS TO WHERE THE MOOULE'S REGISTER 2 

• POIMI^ TO UHCRi: THE HOOUbB'S RCCI&XER 3 

(POINTS TO t*HEHF THF MODULE'S REGISTER 4 

IPOINTS TO WHCPK THE MOOULF'8 REGISTER 5 

rPOINTS TO "(HFRE THF MODULE'S REGISTER 6 

IREFERENCES THE BASE ADDRESS OF THE MODULE'S DEVICES(C0NTROL AND 

IREFERENCES THE CONTENTS OF THE CONTROL AND STATUS REGISTER 

J POINTS TO THA ADDRESS OF WHAT THE DATA SHOULD HAVE BEE" 

iPDINTS TO ANYSTATUS HEGISTFRNOT THE SAME AS THE C5R 

IPOINTS TO THE ADDRESS OF WHAT THE DATAWJS 

IPOINTS TO THEACTUAL EXPECTED DATA 

IPOINTS TO THE ACTUAL RECEIVED DATA 

IPOINTS TO THE MODULE RESTART ADDRESS 

IREFERENCES THE VIRTUAL ADDRESS OF THE READ BUFFER 

iPOINTS THE LOCATION FOR THE PHYSICAL ADDRESS OF THE BEAD BUFFER 

[POINTS THF EXTENDED ADDRESS BITS OF THF READ BUFFER 

I POINTS THF SIZF HF THE READ PUFFER 

[POINTS TO THE WRITE BUFFER PHYSICAL ADDRESS 

(POINTS TO THE EXTFMDCO ADDRESS BITS OF THE wpITE BUFFER 

IREFERENCES THE AMOUNT OF WRITE BUFFER REQUESTED BY MODI'LF 

IREFERENCES THE SIZE OF THE WRITE BUFFER 



XFLAG 


=5. 1 


STAT 


■16. 1 


STATl 


■l'. 1 


INIT 


= lf>. 1 


SPOINT 


■ 20. 1 


PSCNT 


■22. t 


EPCNT 


■24. 1 


SVRO 


■26, 1 


SVRl 


«2R. 1 


SVP2 


■30, 1 


SVR) 


■J2. » 


SVR4 


■34, 1 


SVB5 


■36. 1 


SVR6 


■3S. 1 


esRA 


■40. 1 


ACSR 


■42. 1 


SBADR 


■42. I 


ASTAT 


■44. 1 


WASADR 


■44. 1 


A SB 


■46. 1 


AWAS 


«4R. 1 


RSTRT 


■50. 1 


RBUFVA 


■52. I 


BBUFPA 


■54. 1 


RBUFEA 


■56. 1 


PRUFSZ 


«5P, 1 


WBUFPA 


■60. 1 


WBUFEA 


■62. 1 


WBUFBO 


■64, 1 


WBUFSZ 


■ 66. 1 



CONTENTS ARE STORED 
CONTENTS ARE STORED 
COHTEKTS ARC STORED 
CONTENTS ARE STORED 
CONTENTS ARE STORED 
CONTENTS ARE STORED 
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SEQ fln09 



184 






iLOAD TRAP AND 


VECTOR AREA 


185 












186 




000000 




.aO 




187 


900000 


000000 000000 




.WORD 


0,0 


188 


000004 


015246 


BUSEVi 


BUSERR 




189 


000006 


000340 




PRTy7 




190 


OOOOlO 


015276 


RESIVl 


RESINT 




191 


000012 


000340 




PRTY7 




193 


000014 


005700 


TRCVi 


TRCI 




193 


000016 


000000 









194 


O00O20 


006416 


lOTVj 


PIRQ. 




195 


000022 


000340 




PRTY7 




196 












197 


000024 


015460 


PWRFVi 


PWRDN 




198 


000026 


000340 




PRTY7 




199 


000030 


000032 


CMTVl 


,*i 




200 


000032 


000000 




HAIiT 




201 


000034 


015134 


TRPVi 


TRPINT 




202 


000036 


noeooo 









203 




000040 




.■40 




204 


000040 


000000 




.WORD 


OPEN 


205 


000042 


000000 


DDPPIRi 


.WORD 





206 


000044 


000000 




.WORD 





207 


000046 


016134 




LOGIC 




208 


000050 


000000 




OPEN 




209 


000052 


oooooo 




OPEW 




210 


000054 


QOOOOOC 




CAST 




211 


000056 


000001 




1 




212 




000060 




.■60 




213 


000060 


006552 


KYBOVj 


KBSRVC 




214 


000062 


000340 




PRTy7 




215 


O00064 


001526 


TTPIVj 


TTYSPV 




216 


000066 


000200 




PRTy4 





jBUS ERROR TRAP POI*'TER, 

jPESEPVED INSTRUCTION TRAP, 

(TRACE TR*P POINTER, 

jSERVICE PIRQ CALt 

I PREVENT t/OWER LEVEL MODUT.B FROM C0«IN5 I^ ON 

J TOP OF HIGHER LBVFl ONES 

jPDWER FAIL POINTER. 

jEMT POINTER 

fTRAP POINTER, 



jLOAD MEDIUM INDICATOR, 

»CH»IN MODE ONLY, POIVIS TO nDP"ON, 



jGLOBAL pniNTER FOR CAST "ODIFICATION 
tJLSO FOR COST 



IKYPD INTERRUPT POIiiTEP, 
(TELETYPE PBIHICR SERVICE 
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217 
218 
219 
220 

221 000114 

222 000114 015672 
J23 000116 000340 
224 

225 
226 
227 
228 
229 
230 
231 
332 
333 

234 001004 ooonoo 



(FROM 70 THROUGH 776 FILLED WITV , + 2 AND -lALT, 



.■114 

PARVCTI PAREPR 
PRIY7 



(PARITY ERROR INTFRUPT POINTER 



000200 
000200 000167 001330 

001000 
OOIOOO 000167 000530 



(LOAD STARTING ADDRESSES 
START 



.■200 
JMP 
.■1000 
JMP 



START 



FAKESRl OPEN 



(GO TO STAPT OF MnxlTOR, 
(GO TD STAFT OF MONITOR. 

(LOCATION OF PSEUCD SWITCH V^r,, WHE« UStD 
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235 






236 






237 


DDioCo 


OOG 


238 


001007 


000 


239 


001010 


000 


240 


OOlOll 


000 


241 


001012 


000 


242 


001013 


000 


?43 


001014 


000 


244 


001015 


000 


245 


001016 


000 


246 


001017 


000 


247 


001020 


000 


248 


001031 


000 


249 


001023 


000 


250 


001023 


000 


2S1 


001024 


000 


252 


001025 


000 


253 


001026 


000 


254 


001037 


noo 


255 


001030 


000 


356 


001031 


000 


257 






258 


001032 


000 


360 


001033 


000 


261 


001034 


000 


263 


001035 


000 


363 






364 


001036 


000000 


265 


901040 


000000 


266 


001043 


000000 


267 


001044 


oooooo 


268 


001046 


000000 


269 


001050 


oooooo 


370 


001052 


oooooo 


371 


001054 


oooooo 


372 


001056 


oooooo 


373 


001060 


oooooo 


274 


001062 


oooooo 


275 


001064 


oooooo 


276 


001066 


oooooo 


277 


OOtOTO 


oooooo 


378 


001072 


oooooo 


379 


001074 


oooooo 


280 


001076 


oooooo 


281 


001100 


oooooo 


282 


001102 


oooooo 


383 


001104 


oooooo 


384 


001106 


oooooo 


385 


oouio 


oooooo 


286 


001112 


oooooo 


387 






288 






389 


001114 


oooooo 


290 


001116 


oooooo 



HACVll ZViiguBj 23-APR-77 OOlll PASE 9 

J VARIABLE DATA AREA CLEARED EVERY TIME RUN IS ISSUED OR "C IS TYPED 

jSPCFLG ANn DIRIND «<UST BE IN SAME waRDJl 



jTELETYPE Bl'SY FLAG. 0= NOT BUSY. 



lO«ERROR, NOT OoDATA ERROR, 

•EXTENDED I/O MODULES NOT YET HUM in CURRENT BANK 

lEXTE»)DED I/O MODULE COUNT 

{CURRENT VALUE OF XFLAG BEING CHECKED FOR 

»STOP MODULES TO RELOCATE PROGRAM 

tBACKGROUND module COUNT 

rPUNNABLE EXTENDED MODULE COUNT (TO CALCULATE ROTCTl 



jVALUE USED FOR BUFFER ROTATION TIMEOUT (16 TIMES 
iXCN'T OB 377* WHICHEVER IS SMALLER) 
{ALTERNATE RELOCATION COUNTER- TOTAL ENDPASS 
jCALLS TN CURRENT SJNif 

jBKMOD INSTR CTR- LOADED FROM BKTIME 
jWB'.'F ROTATION RATE CTR- LOADED FRO*" ROTN 



SHODULE pnifJTEP 



SEQ 0011 



TYPOUEt 


.BYTE 


OPEN 


SPCFLGi 


.BYTE 


OPEN 


DIRINDJ 


.BYTE 


OPEN 


BKQUEj 


.BYTE 


OPEN 


BRAKEl 


.BYTE 


OPEN 


TTYBSYi 


.BYTE 


OPEN 


KODCNTi 


.BYTE 


OPEN 


MOOCTRl 


.BYTE 


OPEN 


ERRINDi 


.BYTE 


OPE« 


FILCTRi 


.BYTE 


OPEN 


MDXCTRJ 


.BYTE 


OPEN 


MDXCNTI 


.BYTE 


OPEN 


WBFLGi 


.BYTE 


OPEN 


STOP! 


.BYTE 


OPEN 


BKCNTt 


.BYTE 


OPEN 


XCNTI 


.BYTE 


OPEN 


QUECTRl 


.BYTE 


OPEN 


xrpFLGi 


.BYTE 


OPEN 


ROTCTi 


.BYTE 


OPEN 


PASTOTi 


.BYTE 


OPEN 


PASRELt 


.BYTE 


OPEN 


BKTIHRi 


.BYTE 


OPEN 


ROTI 


.BYTE 
.EVEN 


OPEN 


KBPTRl 


OPEN 




HODPTRs 


OPEN 




ADDRLOl 


OPEN 




ADDRHIl 


OPEN 




NUMBER! 


OPEN 




NUMBPAl 


OPEN 




NUMBEAl 


OPEN 




DSTADRl 


OPEN 




SRETRN) 


OPEN 




lOBKIDi 


OPEN 




YESI 


OPEN 




TABADRi 


OPEN 




RSTATi 


OPEN 




TRCPCi 


OPEN 




TRCPSWi 


OPEN 




lOOll 


OPEN 




I0P2J 


OPEN 




TYPQlj 


OPEN 




TYPQ2I 


OPEN 




TYPADRj 


OPEN 




TYPRETl 


OPEN 




TYPCTPi 


OPEN 




OASCEAl 


OPEN 




MODWPAt 


OPEN 




MODWEAs 


OPEN 





)I/0 QUEUE P0INTFR5. 



[LOAD TYPE QUEUE POINTER 
[UNLOAD TYPE OUEUF POINTER 



• USED TO MONITOR CO^'SOLE TELETYPE TO PREVENT HANGING 
jUSED TH HOLD EA BITS FHP OCTAL TO 
fASCn CO^'VERSTON 
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001130 


OOOOOO 




001122 


nooooo 




001134 


OOOOOO 




001136 


OOOOOO 




001130 


OOOOOO 




001132 


oooooo 




001134 


OOOOOO 




001136 


oooooo 




001140 


oooooo 


300 


001142 


oooooo 


301 


O0H44 


oooooo 


302 


001146 


oooooo 


303 


001150 


oooooo 


304 


001152 


oooooo 


305 


onii?* 


oooooo 


306 


001156 


oooooo 


307 


001160 


nnoooo 


308 






309 







!7{10065 


23-APP-77 


M0DW12i 


OPEN 




MODRPAj 


OPEN 




MOOREAj 


OPEN 




M00R12J 


OPEN 




DERRCTf 


OPEN 




SAVLOj 


OPEN 




SAVHIl 


OPEN 




MODADRi 


OPEN 




TYPPU 


OPEN 




TYPR2I 


OPEN 




TyPR3f 


OPEN 




TYPR4I 


OPEN 




TYPR5: 


OPEN 




SPSAVl 


OPEN 




ERSPOSl 


CiPE^' 




CDFLG! 


OPEN 




CCSRAl 


OPEN 
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{ADDRESS OF CURRENTLY EXECUTING (lOQ LEVEL) MODULE 
{SAVE LOCATIONS FOR TYPE ROUTINE REGISTERS 



. IsirSICSTE 



'?'■■' TO C"Er*^DATA ROUTINE 



QABM DEC/Xll ST»ND»PD MONITOR 
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jte 






311 






313 


001163 


177560 


313 


001164 


177562 


314 


001166 


177564 


315 


noipo 


177566 


316 


001172 


177514 


317 


001174 


177516 


318 


001176 


177570 


319 


001200 


123456 


320 


001203 


023333 


331 


001304 


000000 


333 


001306 


000000 


333 


00)310 


000000 


334 


001313 


000000 


335 


001314 


000000 


336 


001316 


000000 


337 


001330 


000000 


338 


001333 


000000 


339 


001334 


000000 


330 


001336 


000000 


331 






333 


001330 


000000 


333 


O01332 


001534 


334 


001234 


000000 


335 


001336 


nooooo 


336 


00)3*0 


000000 


337 


00)342 


000000 


338 


001244 


000000 


339 


001346 


000000 


340 






341 


O01350 


000000 


343 


001352 


000000 


343 


001354 


000034 


344 


001256 


012000 


345 






346 


001360 


000000 


347 


001262 


000000 


348 


001264 


000000 


349 


001266 


000000 


350 


O01370 


000000 


351 


001272 


000000 


353 


001374 


000000 


353 


001376 


177600 


354 


O01100 


173300 


355 


001303 


173300 


356 


001304 


000000 


357 






358 






359 


OO1306 


014 


360 


001307 


000 


361 


001310 


000 


363 


oonii 


000 


363 


001312 


000 


364 


001313 


000 


365 


001314 


ooo 



"dCYU 27(1006) 33-IIPR-77 OOllJ PftOB 1! 



|V»RIABtE AND FIXED DAT* »REA NOT CLEAPED «HEK PVi OB "C IS ISSUED 



»ir THIS AND NEXT LHC ARE CHANGED, 
fCHANGE LOC.S LPWKl A»JD LPWKJ IF PRESENT 



sADDBESS OF THE SWITCH REGISTER 
IRANDOM NIIMRER IS CALC'ED AND PASSED HEBE 
jALSO USED BY BAND, 



IKSJ 


177560 


TKBl 


177563 


TPSI 


177564 


TPBI 


177566 


LPSi 


177514 


LPBI 


177516 


SRt 


177570 


RAHNUMt 


133456 


RAHHRKi 


33333 


HEMVAt 


OPEH 


MGMpAt 


OPEN 


HEME At 


OPEN 


MEM12I 


OPEN 


MEMSBEi 


OPEN 


MEMUASi 


OPEN 


LOCOREl 


OPEN 


ZERO: 





LC0B13t 


OPEN 


HC0R13I 


OPEN 


HCORSV: 


OPEN 


WBuri 


START 


HBFEAi 


OPEN 


WBUri3« 


OPEN 


OFFHXl 


OPEN 


OFFSETi 


OPEN 


offstd: 


OPEN 


OFFSTMJ 


OPEN 


MOVBNKi 


OPEN 


WAPRETi 


OPEN 


EBRLIWJ 


20. 


HXWBFj 


AMODNM. 


TTYBYTj 


OPEN 


CXRETl 


OPEN 


SYSCNTI 


OPEN 


P»RCNTi 


OPEN 


BKPTRl 


OPEN 


KTSAVl 





HCR13At 





PDRTABI 


177600 




173200 


PDRENDl 


173300 


KTPRESi 


OPEN 



■SIART/3tl77000 



•STARTING ADDB "F FOEE CORE (MULTIPLE OF 1000 OCTAL) 

;LOCOBE EA BITS 

»TOP 12 BITS OF LOW COH»; ADDRESS 

iCONTAINS ST. ADDP OF HIGHEST BUFFER, 

;(TOP 12 eiTS ONLY) 

jCONTAINS CUBRE»!T hBITE BUFFER SDDR. 

jVipITF BUFFEB F' BITS (SHIFTED TO POS 4,5) 

:TOP 12 BITS OF «BUF AD1RFSS IF USING POTATTQ*' 

(TOP ALLOWABLE PROGBAM OFFSET 

(CURRENT PRnGRA« OFFSET 

(DESTINATION OFFSET 

(SAVE LOCATION FOB OESTINATIO" OFFSET 

(DURING MOVE 

(BANK BEING WOVED (SOURCE ADDRESS) 

rBETURH ADDRESS FROv "VCOPE ROUTINE 

(MAX SIZE OF WPITE BUFFER, VARIES 
(IF 3UFFEB POTATION IS ENABLED 



FILCNTi .BYTE 

FILLER! .BYTE 

SYSEBll ,PYTE 

RMOOEi .BYTE 

CHN| .BYTE 

ROTIl .BYTE 

ROTH .BYTE 



13. 



OPEN 

OPEN 

OPEN 

OPEN 

OPEK 



(CTRLX BETURN ADDRESS 

(TOTAL NUMBER OF SYSTEM EPBOBS 

(TOTAL NUMBFB OF POWEB FAILS 

(QUEUE POINTER INITIALIZATION FOR RUNNING BF^ODS 
(USED FOR SECOND PASS Iti CHAIN "ODE TO 
(RESTORE TRUE STATE OF SYSTFM 



(Oa IKHIBITEH OP ''OT PRFSFNT (LEAVE AS FULL 
(WORD FOR EASY MODIKICATinN A^'D TO GUARANTEE 
(THAT FILCNT AND EILLFB ARE IN SAME l«URD) 
(FILCNT AMD FI'.LFB ^UST BE IN SAME WORD 



(BUN ■<ODE IK'DICATOR 

(WBITE PUFFEB ROTATinU LOCKED FLAG 



QABM DEC/Xll STANDARD "ONITOR 
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366 


001315 


000 


367 


00)316 


000000 


368 


001330 


000100 


369 


001122 


000400 


370 


001324 


000 


371 


001325 


000 


372 


001326 


000 


373 


001327 


000 


374 


001330 


000 


375 


"01331 


000 


376 


001332 


010 


377 






378 


001333 


000 


379 


001334 


000 


380 


001335 


000 


381 


001336 


010 


383 


001337 


003 


383 






384 


OOI34O 


000 


385 


001341 


000 


386 


001342 


000 


387 


001343 


000 


388 


001344 


000 


389 


001345 


000 


390 


001346 


000 


391 


001347 


000 


393 


001350 


012 


393 


001351 


000 


394 


001352 


000 


395 


001353 


000 


396 


001354 


000 


397 




001356 


398 


001356 


oooeooG 


399 


001360 


000000c 


400 






401 


001362 


001604 


403 


001364 


OOOOOOG 


403 


001366 


OOOOOOG 


404 







RELOC I 


.BYTE 


OPEN 


ROTCNTi 


OPEN 




ROTNUM! 


100 




ROTSIZl 


400 




FILLIDt 


.BYTE 


OPEN 


MOVING! 


.BYTE 


OPEN 


RUNRFL( 


.BYTE 


OPEN 


LOCK! 


.BYTE 


OPEN 


MVOOWNj 


.BYTE 


OPEN 


RETRY t 


.BYTE 


OPEN 


OUECNTJ 


.BYTE 


10 


MDL4SI 


.BYTE 


OPEN 


iSHBFCt 


.BYTE 


OPEN 


HEMERFl 


.BYTE 


OPEN 


BKTIMEl 


.BYTE 


10 


ROTN! 


,BYTE 


3 


PPRESi 


.BYTE 


OPEN 


CNTll 


.BYTE 


OPEN 


ATEi 


.BYTE 


OPEN 


MFLAGl 


.BYTE 


OPEN 


HNGFLGl 


.BYTE 


OPEN 


MOVFlGl 


.BYTE 


OPEN 


MSGFLGt 


.BYTE 


OPEN 


OATFLGl 


.BYTE 


OPEN 


SYSLIMi 


.BYTE 


10. 


TFLAGl 


.BYTE 


OPEN 


NSTOPi 


.BYTE 


OPEN 


CLOCKi 


.BYTE 


OPEN 


ALLBKt 


.BYTE 
.EVEN 


OPEN 


CLOCKLl 


KWllL 




CLOCKPi 


KWllP 




HNGTIMI 


900, 




ALCLRi 


LCLEAR 




APCLRt 


PCLEAH 





(RELOCATION ALLnwED FLAG 
(ROTATION COUNTFP USED WITH ROTL 
(ROTATION CONSTA'IT USED WITH ROTCNT 
(ROTATE PROGRKM BY BK 
(FILL INDICATOR. 
(CODE BEING PFLDCATED 

(PREVENT ROTATinri OF CODE EXECUTION 

(RETRY COUNT FOB CODE RELOCATION 

(« OF TIWES TO CHPCK ICOUF BEFORE CHECKING 

(TYPED WHEN BOTH HAVE BEQUESTS PENDING 

(NON-ZERO IF CP" IS 11/45 

(WRITE BUFFER BOTATION COUNT 



(» nr G'<iBUF CALLS (LESS ONE) NEEDED PEP 

(ROTBUF CALL 

(PARITY PBESE'.'T, OalNHIBITED OR NONEXISTENT 



(FLAG INDICATES CKHUNG BOUTINE IS BUSY 

(FLAG USED IN MVCODB pnUTINE 

(FLAG INDICATING VSGN OR VSGS CALL 

(FLAG INDICATING CKDATA OP DATACK CALL 

(MAX, NUMBER OF SYSTEM ERRORS ALLOWED 

(TIMER FLAG INDICATING FRPOB OB EOP 

(FLAG PREVENTING STOP FPO" BEING SET 

(CLOCK FLAG 

(WHEN NON MEANS RUN ALL BKMODS BEFORE RELOCATING 

(WILL BE IF NO KWll-L CLOCK 
(WILL BE IF NO KWIl-P CLOCK 

(HUNG TIME LIMIT IN SECONDS 

(SUBROUTINE ADDRESS IN l CLOCK MODULE 

(SUBBOUTINE ADDP IN p CLOCK MODULE 

(WILL DBOP ANY I/O "ODULE INACTIVE FOB 15, MINS, 



QABM DEC/XU STANCkRD MONITOR 
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409 
49S 
407 
401 
409 

410 . 

411 0813'0 1S7577 

413 901173 003641 
411 001)74 O01S34 

414 001176 03St06 

415 001400 117(07 
41C 001403 003641 
417 00140S 
411 OOUOS 000001 
419 001410 000000 

430 001412 000000 

431 001414 000000 
433 001416 000000 

433 001430 000000 

434 001432 000000 

435 001434 000000 

436 00i43£ 000000 

437 901430 000030 
43i 001476 000000 
439 0OU72 000000 
4)0 001474 000000 
431 001476 177746 
4)3 001900 000000 
411 

414 
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SEQ 0015 



t ••• 00 NOT CHANGE THE SEQUENCE OF THE NEXT 9 WORDS ••• I 

iREFCP TO THE DOCUMENT FOR THE MONITOR CHECKSUM MODULE (BKBA) 

iFOR THE USE OF THE NEXT SIX HORDS, AND HON THE TWO "OPEN* LOCATIONS 

I ARE DEFINED HHEN A NEW VERSION OF THE MONITOR IS RELEASED 

ILOH CHK8UN FOR PROC, WITH NO RTT INST, 
iHIGH CHKSUM 

(BEGIN ADDR OF MONITOR PURE AREA 

I END ADDR OF MONITOR PURE AREA 
(CONTAINS LOW CKSM OF MONITOR PURE AREA {PROC HUH RTT} 
fCONTAINS HI CKSM OF MONITOR PURE AREA 

(HOURS IN ASCII 
(MINUTES IN ASCII 
(SECONDS IN ASCII 
(TOTAL ELAPSED RUNTIME IN SECONDS 
(HOLDS RUNTIME EXTENDED BITS 
(SAVE LOCATION FOR CLOCK ADDRESS 
(SAVE LOCATION FOR CLOCK CSR 
(HOLDS MODULE PASS TIME IN SECONDS 
(HOLDS MAX. ELAPSED TIME FOR CKHUNG ROUTINE 
(TABLE OF PARITY REGISTER ADDRESSES 
(ADDRESS OF 11/60 CPU ERROR REG. 
(ADQRSSS OF ii/60 He^OSi ERR08 SES, 
(HOLDS CONTENTS OF ERROR LOG REG. LAST READ/WRITTEN 
(CACHE CONTROL REG 

(TEMP STOR FOR CACHE OPERATIONS 

.EVEN 



CHKL3I 


1)7577 




CHKH3t 


3641 




CHKSUM i 


.WPRD 


START 




.WORD 


HCA8EE 


CHKLlf 


117607 




CHKHll 


3641 

.ODD 




HOURS i 


.BLKB 


1 


NINITSi 


OPEN 




SEKNDSl 


OPEN 




RTIHEi 


OPEN 




RTIMXi 


OPEN 




CLKADRJ 


OPEN 




CLKHLDi 


OPEN 




PTIMEi 


OPEN 




MAXTIMl 


OPEN 




PARTABJ 


.BLKH 


16. 


CPUERRI 


OPEN 




MEtfERRji 


OPEN 




LGHOLDf 


OPEN 




CONTRLj 


177746 




KOHTRLt 








OABM OEC/Xll STANDARD MONITOR 
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415 
416 
417 
41S 
419 
440 
441 
442 
441 
444 
445 
446 
447 
4(9 
449 
450 
451 
453 
453 
494 
455 
456 



001502 012700 001512 

001506 000167 001104 

00J512 000000 

001914 000000 



001516 104421 
001920 000000 
001522 000167 006716 



001926 000004 

001910 007416 
001532 000000 



(VARIABLE QUE CALL AREA- KEPT IN FRONT OF START 5TNCE IT IS IMPURE CODE 

(COMMON "QUE CALL" ROUTINE. DOES A DIRECT DISPATCH RATHER THAN 
(REOUEIHG DUE TO MULTIPLE POINTS CALLING THIS ROUTINE WHICH 
(MAV OVERLAP IF REQUEUED. 



COHQUEl MOV 
JHP 
CADDRi OPEN 
CSTARTi OPEN 



*CADDR,RO 
I0Q8VN 



(CHBCKDATA ERROR CALL 
CDERRI DERRXt 
CDBRRlt OPEN 

JMP CDRET 



(DESTINATION ADDR. 

(MODULE START ADDR. CO FOR MONITOR). 



lAOOREiS OF CKDATA CALL 



(TELETYPE ROUTINE PIRQ CALL 

(TTYLNK IS FREQUENTLY MODIFIED DURING EXECUTION 



TTYSRVl PIROt 
TTYLNKi TTSRVl 



0/kBM 3SC/XJ1 SfSHDARD ■^ON'ITDi^ 
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SEO 0017 



457 

4se 

459 

460 
481 
463 
463 
464 
465 
466 
467 
468 
469 
470 
471 
472 
473 
474 
475 
476 
477 
479 
479 
400 
481 
482 
483 
484 
485 
486 
487 
488 
489 
490 
491 
492 
493 
494 
495 
496 
497 
498 
499 
500 
501 
502 
503 
504 
505 
506 
507 
508 
509 
510 
511 
512 



001S34 
001536 
Q01542 
001550 
001554 
001562 
001570 
001574 
001576 
001604 
001606 
001612 
001620 
001624 
001626 



001632 
001634 
001640 
001642 
001646 

001652 
001660 
001666 
001672 
001700 
001704 
001710 



001714 
001720 
001722 
001730 
001732 
601734 
001736 
001744 
001750 

001756 
001762 
001766 
001774 
002000 
002004 
002012 
002014 
002030 
002024 
002030 
002034 



000005 
012706 
012767 
012746 
012767 
012767 
005777 
000404 
012767 
022626 
012667 
012767 
005767 
001054 
004567 



000005 
105767 
001430 
004767 
005067 

012737 
012737 
012701 
012737 
062701 
010167 
012706 



012700 
000404 
012737 
005000 
011020 
000776 
012737 
012706 
012737 

004767 
105067 
112767 
105067 
104406 
022767 
001002 
104406 
004767 
004767 
004767 
105767 



027212 
015460 
000004 
177570 
001576 
177402 

001004 

176172 
026520 
177374 



010146 
170432 

OOOOOl 
001736 
177600 
001700 
000200 
170432 
001160 



020000 
001744 



000000 
027212 
015246 

013004 
177323 
177777 
177314 
022672 
001004 

024633 
014714 
015022 
015514 
177244 



176254 



177414 
176214 



177372 
177450 



177572 
000004 



000250 



177572 
000004 



177025 
177164 



tSTARTUP SEQUENCE 

ST»RT| BESET iCLEftP THE WOBLD. 

MOV ISPBQTtPe (SET UP STACK, 

MOV IPWRDM,PWprV iSET UP POMEP TUl VECTOP. 

MOV «BUSEV,«CSP) (SAVE PRESENT BUS ERR TRAP 

MOV tHARDSRiSR (SET SPaHARDWAPE SP 

MOV l3(rBUSEV (SET NEW BUS ERR TRAP 

TST 9SR lis IT HARDWARE SP? 

BR 4( >ir YES, RESTORE TRAP 

3(1 MOV tFAKESRfSR (ELSE SET UP SOFTWARE SR 

CMP CSP)+,CSP)+ jRESTORE STACK 

4(1 MOV CSP)+»BUSEV jRESTORE BUS ERR TRAP 

MOV #H000-2,BKPTR sINITIAMZE TO START BKMODS WITH 15T ONE 

TST LOCORE J DONE BUEFEB SETUP? 

BNE 2( ;BP IF YES, 

JSP BS.SETBUF jNO, DO IT. 
I THE FOIiLOWING IS USED TO WRITE ALL MEMORY WITH WHATEVER IS 
I ALREADY THERE, JUST TO CLEAR ANY PARITY ERRORS PRESENT 

J TURN OFF KT 



13(1 



14(1 
15(1 



17(J 
18(1 



RESET 

T8TB 

BEO 

JSR 

CLR 

MOV 
MOV 
MOV 
MOV 
ADD 
MOV 
MOV 



MOV 

BR 

MOV 

CLR 

MOV 

BR 15( 

MOV 

MOV 

MOV 



KTPRES JKT? 

14$ JBR IF NO 

PCKTINIT iSET UP KT REG'S FOB NORMAL USE 

KIPPB2 jFOPCE A KT TRAP WHFN LOOP OVERFLOWS 

tINTO NEXT PAGE 
#1,?ISSR0 tTUBN ON KT 

#17(,9»4 jEXIT POINT FOB END OF MEMOBy 

»-200,Rl >SET BACK A PACE FOR LOOP'S INC 

»13(, 81250 fSET UP KT TRAP TO PUMP TO NEXT PAGE 
#200, Bl »BUMP TO NEXT PAGE 

R1,KIPAB1 jSET UP LOOP'S "AGE 
»CCSRA,B6 »GET BID OF TBAP JUNK OM STACK 
tUSING THIS AREA FOP STACK TEMPOfiSPlLY SINCE ITS 
»IN THE SAME PAR SPACE 



120000, BO 

15( 

fl8(,l>*4 

BO 

(B0),CB03+ 

tO,9tSSB0 
»SPB0T,B6 
«BUSEPB,B#4 



JSR 
CLRB 
HOVB 
CLBB 



PC.CLRQUS 

BMODE 

»-l,HDXCTB 

BOTL 
MSG«, TITLE 
CMP »FAKESB,SP 
BNE S5( 
MSG(,NOSWB 
JSB PC.POTCHK 
JSB PC.SYSIZ 
JSB PCKLOCK 
TSTB KTPBES 



J SET BO TO USE PAR 1 
jGO DO A PAGE 

jSET UP EXIT FOP NQN KT 
jSTART AT LOC 
jWBITE A LOC WITH ITSELF 
»BR TILL KT OB 4 TBAP 
jTUBN KT BACK OFF 
I BESET STACK TO BEAT. ABFA 
jCOPRECT TBAP VECTOP 

iCLEAB QUEUES. 

jINITIALIZE COUNTER 

J MAKE SUBE BOTATION TS NOT LOCKED 

tTYPE THE TITLE 

jDO WE HAVE A BFSL SB? 

;BB IF YES 

jELSE TELL HIM WHERE IT IS 

jCHECK IF BOT*TE ALLOWED AND TYPE BAKGE. 

;PBINT OUT THE SYSTFM SIZE 

jCHECK FOR A CLOCK AND SET FLAGS 

JKTU ALLOWED? 
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513 


002040 


001410 








BEO 


START3 


514 


OO3043 


004767 


007746 




START2i 


JSR 


PCKTINIT 


515 


003046 


013737 


OOOOOl 


177572 




MOV 


ll,9iSSB0 


516 
517 
518 


003054 


104406 


02461S 






MSG(, 


,KTONM 
















519 


003060 


000403 








BR 


START4 


520 


003062 


104406 


023776 




START3J 


MSGS, 


,NOKT 


521 
















522 


002066 


004767 


010722 




START4i 


JSB 


PCPONN 


533 
















524 


002072 


105737 


000041 






TSTB 


9«4l 


525 


003076 


001402 








BEO 


1( 


526 


OO21OO 


104406 


023520 






MSGS, 


iCLR40 


527 


002104 


005067 


177134 




1(1 


CLR 


OFFSTD 


528 


002110 


004767 


017360 






JSR 


PC.MVCODE 


529 


002114 


004767 


012646 






JSR 


PCCLBQUS 


530 


002120 


004767 


013734 






JSR 


PC.CLBVEC 


531 


002124 


105767 


177154 






TSTB 


KTPBES 


532 


002130 


001002 








BNE 


5$ 


533 


002132 


004767 


033534 






JSR 


PCLOADWC 


534 


002136 


104406 


022737 




5(1 


MSG(, 


DOT 


535 


003142 


105767 


177144 






TSTB 


CHN 


536 


003146 


001405 








BEO 


INPUT 


537 


003150 


112777 


000015 


176660 


6(1 


MOVB 


#I5,9KBPTB 


538 


003156 


000167 


006526 






JMP 


RUN 


539 
















540 


003163 


012706 


027312 




INPUT! 


HOV 


ISPBOT,Be 


541 


003166 


105067 


177116 






CLRB 


SYSERI 


542 


003173 


012767 


026712 


176636 




MOV 


tKBUF/KBPTB 


543 


003200 


052777 


000100 


176754 




BIS 


tIE,8TKS 


544 


003306 


116767 


177120 


176613 




MOVB 


aUECNT.QUECTR 


545 

















JNO- BRANCH 
:YES- INITIALIZE 
ITUPN ON le-BIT Kin 
>"KT11 ENABLED" 



jCONTINUE 
J"N0 KTll" 

TGO TUBN on PARITY IF AVAILABLE 

lANY LOAD MEDIUM BITS SET 7 

jNO, CONTINUE 

;" TO EXEBCISE T,OAD MEDIUM YOU MUST CLEAR LOC 40 

jMAKE SUBE PBOGBAM Is NOT PABTIALLY RELOCATEP 

»CLEAR QUEUES IN CASE HVCODE OVFR WPOTE THE" 

J INITIALIZE VECTOR AREA 

jKTU IN USE ? 

JYES, CONTINUE 

jNO, LOAD WORST CASE PATTERN IN BUFFER 

J TYPE DOT, 

:CHAIN MODE? 

jNO- GO AWAIT KEYBOARD INPUT 

JCLEAN OUT KEYBOABD BUFFEB WITH A CP 

jYES-START RUNNING. 

jBESET STACK. 

tCLEAB SYSTEM ERBOB INDICATOR, 
^INITIALIZE KYBO BUFFER POINTER, 
JENABLE KYBD INTEBPUPTS. 
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946 

547 
948 
549 
550 
581 
552 
553 
554 
555 
556 
557 
558 
559 
560 
561 
563 
563 
564 
565 
566 
567 
568 
569 

571 
572 



003314 
003320 



002333 
003330 
003333 
Q03336 
003340 
003344 
003350 
003353 
003356 
003360 
003364 
003366 
003373 
003376 
003300 
003304 
003310 

002316 

003333 



105J67 
003004 



116767 
000405 
105767 
001403 
000167 
005767 
100433 
105767 
001413 
105767 
001003 
000187 
005367 
001003 
000167 
005767 
001402 
505:S7 
105767 
001734 



177104 
176550 



000476 
176610 



176531 

'7SS30 



000674 
176613 



005133 
176560 



176767 
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SEQ 0019 

iQUEUE CHECK, NOTE THAT IF lOBKID IS NEGATIVE, NO TYPE QUE REQUESTS HILL BE SERVICED 

ICOUNT TO PREVENT BREAK CALLS FROM LOCKING OUT TYPING 
lALSO PREVENTS HIGH SPEED INT DEVICES PROM 
(LOCKING OUT TYPE QUEUE AND RUN SERVICE 
; STARTUP OF MODULES 



176577 



0UET9TI 


DECB 


OUECtR 




BGT 


1* 




MOVB 


QUECNTfQUECTR 




BR 


3t 


111 


TSTB 


lOQUE 




BEQ 


31 




JMP 


lOQSVC 


3ii 


TST 


lOBKID 




BMI 


OTSTC 


3*1 


TSTB 


TYPQUE 




BEQ 


QT8TB 




TSTB 


TTYB8Y 




BNC 


QTSTA 




JMP 


TYPSVC 


OTSTAi 


DEC 


TYPCTR 




BNE 


QTSTB 




JMP 


TTSRVl 


QTSTBi 


TST 


TPCPC 




BEQ 


QTSTC 




jSiF 


ssasvs 


QTSTCi 


TSTB 


RMODE 




BEQ 


QUETST 



(RESET QUE COUNTER 

tlO QUE REQUEST PENDINGT 

iGO SERVICE IF YES. 

ISTARTING I/O MODULES? 

I BR IF YES. 

(TYPE REQUEST PENDING? 

jBR IF NOT. 

jTTY BUSY? 

I BR IF YES. 

jNO, GO SERVICE TYPE QUEUE, 

jCHECK FOR TTY HUNG 

jUNHANC TTY 

IBACKGROUND MODULE PENDING? 



»IN RUN MODE? 

IBR IF NOT, GO CHECK AGAIN. 
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573 
574 
57S 

576 
577 
578 
579 
580 
581 
583 
593 
594 
585 

Its 

597 
589 
S89 
590 
59J 
503 
593 
594 
595 
596 
597 
599 
599 
600 
601 
603 



002334 
003330 
002333 
002336 
003340 
002344 
003346 
002354 

0!J2J5« 
003162 
003364 
003370 
002372 
003176 
002*00 
O0340« 
0024)0 
002416 
002422 
002424 
003430 
003434 
002440 
002442 
002446 



105767 
001331 
105767 
001407 
105767 
00140? 
0127«7 
000415 

t05''«T 
001314 
J05767 
001007 
105767 
100004 
013767 
000702 
063767 
017700 
001476 
016046 
042716 
022667 
001136 
005767 
001414 



176463 
177016 
176460 
040020 

176442 

176436 

176714 

040030 

000002 
176416 

000020 
016000 

176420 



iRUN MODE SERVICE ROUTINE. 

(NOTE THAT MODULE'S STACK POINTER IS REINITIALIZED l?UT OTHER 

iREGISTERS HAVE ANY PREVIOUS VALUES RESTORED ST START OR RESTART 



176504 



RUNSVCi TSTB 
BNE 
TSTS 
BEO 
TSTB 
HEQ 
MOV 
BR 



13SI 



176452 
176423 111 



TSTB 

BNE 

TSTB 

BNE 

TSTB 

BPL 

MOV 

BR 

ADD 

MOV 

BEO 

MOV 

BIC 

CMP 

BNE 

TST 

BEO 



START A^^Y MORE MODULES 



BRAKE >IS THE BRAKE ON? 

QUETST »BR IF YES. DO NOT TNIT MORE MODULES, 

ALLBK jRUN ALL BKMODS BEFORE RELOCATING ? 

12S jNO, CONTINUE 

STOP (WAITING TO RELPCATP 7 

131 »N0, CONTINUE 

#40020. lOBKID jSTART UP ONLY BKMOD'S 

It (CONTINUE 

STOP I STOP SET? 

OUFTST lYES, DON'T 

MOOCTR JMODCTR "O? 

18 }BP IF NOT. 

CHN (YES. ARE WE IN CHAIN MODE? 

1$ iBR IF NOT. 

#40020, IDBKID (SWITCH IT TO BACKGBOUND ANDPREVENT^LOOPINC 

QUrTST (THRU BACKGROUND MODULE SUSIES MORE THAN OSC 

»2,M0DPTR (POINT TO NEXT MODULE. 

BMODPTH.RO (MOnUTjE AODR TO RO . 

71 (BR IF NO ADDR. 

STAICR0)»-CSP) (GET MODULE'S STATUS 

#BIT121BIT111BIT10,(SP3 (MASK SPECIAL INDICATORS 

fSP)+,IOBKID (CORRECT MODULE TYPE TO RUN? 

11$ (NO- BRANCH 

OFFSET (IF OFFSET 0, IGNORE BITS 10 +11 

21 ( CONTINUE 
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SCO 0021 



603 
604 
605 
606 
607 
606 
609 
610 
611 
612 
613 
614 
615 
616 
617 
61S 
619 
620 
621 
622 
623 
624 
625 
626 
627 
62e 
629 
630 
631 
632 
633 
634 
635 
636 
637 
638 
639 
640 
641 
642 
643 
644 
645 
646 
647 
646 
649 
650 
651 
652 
653 
654 
655 
656 
657 
656 



002450 032760 

002456 001127 

002460 032767 

002466 001404 

002470 032760 

002476 001117 

002500 005767 



002504 
002506 
002514 
002522 
002526 
002534 
002536 
002542 
002546 
002554 
002560 
002562 
002570 
002572 
002600 
002604 
002606 
002610 
002614 
002620 
002626 
002630 
002636 
002640 
002646 
002650 
002656 



100410 
112767 
016767 
004767 
032760 
001402 
105267 
105060 
016060 
105767 
001004 
016067 
000407 
016067 
005760 
001001 
000765 
105367 
000167 
022767 
001004 
012767 
000434 
022767 
001013 
012767 
112767 



004000 
001777 

002000 
176354 



177777 
176320 
015314 
010000 

176260 
000005 
000024 
176S46 

000022 

000062 
000026 



176202 
000212 
040000 

041000 



140000 
177777 



002664 105067 176132 



002670 105067 176456 

002674 000415 

002676 005767 176156 

002702 100012 



000030 
176554 

000020 



2«t 



176277 
176546 

000020 3 

4 
000046 

176264 4 
176254 5 

6 

176232 7 

176222 

176212 8St 

176202 
176135 



BIT 
BNG 
BIT 

BEO 
BIT 
BNE 
T8T 



BMI 

HOVB 

HOV 

JSP 

BIT 

BEO 

INCB 

Ct,RB 

MOV 

TSTB 

BNE 

MOV 

BR 

MOV 

TST 

BNE 

BR 

DECB 

JMP 

CMP 

BNE 

«nv 

BR 

CMP 

BNE 

MOV 

MOVB 



«BXT11,SIAT(P0) IBITII SETT 

111 lYES- DON'T RUN MODULE SINCE OrESET NOT 

11777, OFFSET (OFFSET 32K MULTIPLF7 

28 lYES- IGNORE BIT 10 

•BITIO.STATCRO) jNO- BITIO SET? 

11« jYES- DON'T RUN MODULE 

TOBKID iBACKGROUND MODULE? 



3t 

»-l, BRAKE 

HODPTR.BKPTP 

PC.BKTYM 

tBIT12,STAT(R0) 

4S 

HDXCNT 

XFLAGtRO) 



.»BR IF NOT. 

jYES. APPLY BRAKE. 

» RECORD MODQ ADDRESS OF CURRENT BKMOD 

5REC0RD START TIME OF THIS BKMOD 

rEXTENDED I/O MODULE? 

»N0- BRANCH 

lYES, COUNT IT 

JCLEAR INDICATOR 
SP0INT(R0),SVR6(R0) jSET UP MODULE SP POINTFR, 
RUNRFL 
5$ 

INITtR0)»OSTADR ;SET UP DESTINATION ADDR. 
61 
RSTRTCROJ.DSTADR 



PSCNT(RO) 

6* 

44j 

MODCTR 

lOOSVE 

•40000, lOBKID 

8t 

141000, lOBKID 

101 

141000, lOBKID 

9« 

1140000, lOBKID 

»-l,MDXCTR 



CLRB NSTOP 

BR 10$ 

TST lOBKID 

BPL lOJ 



J HAS MODULE BEEN THRU START YET? 

I BR IF YES 

JELSE GO BACK 

SDECR COUNT OF MODS INITED. 

SGO TO START MODULE 

SFINISHRD WITH SPECIAL BKMOD ? 

jBR IF NOT, 

lYES, SWITCH TO N8KM0D 

rCONTINUE 

JFINISHED WITH NBKMOOS ? 

fNO.. CONTINUE 

lYES, SWITCH TO lOHOD. 

lINITIALLY LOCK MDXCTR 



(INITIALIZE COU«T 



(ALLOW STOP FLAG TO BE SET 
( CONTINUE 

J IF SLREAny BACKGROUND 
(DON'T BFSET MDXCTR 
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002704 


116767 


176112 


176107 




O02712 


012767 


040020 


176140 












































002720 


016767 


176344 


176112 














002726 


000403 








002730 


012767 


026520 


176102 




002736 


000167 


177252 





MOVB 
MDV 



MDXCNT, MDXCTR 
140020, lOBKID 





MOV 


8KPTR,M0DPTP 


1 


MflVB 


t1, RUNRFL 




BR 


lit 


tot) 


MOV 


•MnnO-2,MODPTR 


nil 


JMP 


OUETST 



SEO no22 



(SETUP "DXCTR 

(SWITCH in BscKGpnuon modk 



(CONTINUE WITH NEXT RKMOD 
[SET RUN RESTART FUGl] /SO 



(POINT TO "CIDULK TABLE START. 



#•«*•••««••• 



MBM OEC/Xit SfANOAM HONZTOII 
DXQMM.Pii ai-APR-7T 13142 



S70 

672 

67J 

874 

67S 

67C 002742 026727 

677 002750 10340J 

67t 003793 013767 

679 003760 109367 

610 003764 017700 

661 002770 062767 

662 Q03776 010001 
6«3 003000 014046 
614 003003 033736 

665 003006 001003 

666 003010 000167 

667 003014 00S730 

6ia 

669 003016 013067 

690 003033 013000 

69! 003034 001003 

693 003036 000177 

693 003033 116067 

694 003040 033760 

695 003046 001403 

696 903030 000167 

697 0030S4 033760 
696 003063 001002 

699 003064 000167 

700 003070 010067 

701 003074 010667 

702 903100 063700 

703 003104 014006 

704 003106 01400S 

705 003110 014004 

706 003113 014003 

707 003114 014002 

708 003116 014001 

709 003120 014000 

710 003133 016746 

711 003124 !0506« 

712 003133 016746 

713 003136 000006 



027392 
176032 
176106 
000002 



104407 
000440 



176022 
000020 
030000 

177140 
040000 

177124 
176042 
176053 
000090 



175740 
OOOQO! 
175716 



HACTll 37(1006) 33-»PIt-77 OOill PAGE 21 



Il/O QUE SERVICE ROUTINE. 

•SERVICES PIRQ*.aUEt< AND BREAK! CALLS 

I NOTE THAT P^RQ SERVICE CAN OCCUR ON TOP Of THIS ROUTINE- SO 

lIiEVEt 7 PRIORITY IS REQUIRED IF COUNT IS DECREMENTED AFTER I0Q3 

lis MOVED 



SEQ 0023 



176130 030072 



176116 



176100 



lOQSVCI CMP 
BLO 
HOV 

Iti DECS 
MOV 
ADD 
HOV 
NOV 
CMP 
BNE 
JMP 

21 i TST 



lOQSVNl 



176026 lOaSVEi 
doooSo iOiiisvAt 



000020 111 
211 



lOOSVBt 
RTTII 



HOV 
HOV 
BNE 
JMP 

HOVE 

Bit 

BEQ 

JMP 

BIT 

BNE 

JMP 

MOV 

MOV 

ADD 

HOV 

HOV 

MOV 

HOV 

MOV 

MOV 

HOV 

HOV 

CLRB 

HOV 

RTT 



I0Q2>II0aLIM 

It 

flbQ>I0Q2 

lOQUE 

»lbQ2«R0 

*2,I002 

RO.Rl 

-(RO),-(SP) 

|BREAK|,{SP)+ 

2t 

BREAK, 

(BO)* 

(RO)+>DSTADR 

(RO)*.RO 

lOOSVE 

6DSTADR 

STAT(RO),RSTAT 

fBITl3>STA¥cB0) 

It 

OUETST 

fBIT14tSTAT(R0} 

3t 

OUGTST 

RO.MODADR 

R6.8PSAV 

fSVR6+3fR0 

-(R0),R6 

-tR0)fR5 

-CR0)«R4 

-CR0).R3 

•(R0),R3 

-(RO).Rl 

-(RO).RO 

RSTAT,-tSP) 

!(SP) 

OSTAORi-(SP) 



IREACHED LIMIT OF QUEUE? 

I BR IF NOT. 

t RESET I0Q2, 

IDECREHENT REQUEST COUNT 

>GET PC4'2 OF CALL. 

{UPDATE I0Q2. 

I SAVE PCt2 OF CALL 

(PUSH CALL ON STACK 

(BREAK CALLT 

jNO, CONTINUE 

J YES, GO SERVICE IT 



IGET DESTINATION ADDR. 

iGET MODULE ADDR, IS IT OT 
tBR IF NOT. IT'S A MODULE. 
iGO DO MONITOR FUNCTION. 
iGET RUN STATUS, 

INO, CONTINUE 

iYES, FORGET IT 

Sis HODULE SELECTED T 

lYESi CONTINUE 

|N0, FORGET IT 

(SAVE RO. (MODULE ADDR). 

I SAVE MONITOR STACK TOOt. 

{RESTORE MODULE'S REGS. 

{STARTING WITH STACK POINTER, 



{LOAD RUN STATUS, 
iKERNEL, 1ST REGISTFR SET 
(LOAD DESTINATION ADDR, 
(GO TO DESTINATION, 
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(BACKGROUND QUEUE SERVICED HERE. 



715 














716 


003140 


016767 


175724 


175706 


BKOSVCJ HDV 


TRCPC.DSTADR 


717 


003146 


116767 


175720 


175712 


MOVB 


TRCPSN.RSTAT 


718 


003154 


017700 


175660 




MOV 


?MODPTP,R0 


719 


003160 


005067 


175704 




CLB 


TRCPC 


720 














721 














732 


003164 


000725 






BR 


lOQSVA 



(SET UP DESTINATION ADDR, 

(SET UP RUN STATUS, 

(MODULE START ADDR TO RO, 

(CLEAR BK MODULE WATTING INDICATOR. 

(IF ERROR OCCURS, WILL STOP HODULE FROM FURTHER 

(KXCCUTION tiNTIL ERROR IS REPORTED 

(GO GET GDI«IG, 
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723 
724 
72! 

726 003166 02S727 175710 

727 003174 103403 

728 003176 012767 030072 

729 003204 105267 175604 

730 003210 017701 175666 

731 003214 062767 000002 

732 003222 105367 175561 

733 003226 010146 

734 003230 005741 

735 003232 010167 175610 

736 003236 011101 

737 003240 006301 

738 003242 016101 172244 

739 003246 000201 
740 

741 003250 005310 

742 003252 005014 004042 

743 003260 003426 000001 

744 003266 003322 OOOOOi 

745 003274 000001 000001 

746 003302 000001 OOOOOI 

747 003310 003466 
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iTYPB QUE SERVICE ROUTINE, 
t REMOVES PC+2 or CALL FROM 0, 



PASSING IT IN Rl 



031222 

175676 

175660 



TYPSVCI CMP 
BLO 
HOV 

111 INCB 
MOV 
ADD 
DECB 
MOV 
TST 
MOV 
HOV 
ASL 
MOV 
RTS 



TYP02,«TYPLIM jREACHED UPPER ENO OF QUEUE? 

II jBR IF NOT. 

»TYPE0,TYPQ2 »YES. RESET TYPQ2. 

TTYBSY J INDICATE TTY BUSY. 

?TyP02,Rl >GET PC+2 OF CALL. 

«2,TYPQ2 lUPDATE TyPQ2. 

TYPOUE jDECPEMENT REQUEST COUNT. 

P1,-CSP) (PUSH PC+2 OF CALL 

-tRl) ;POINT TO CALL. 

Rl, NUMBER jSAVE ADDRESS OF CALL 

CR1)»R1 ;GET CALL 

Rl »TIMES 2. 

TypTAB-TRP2-4(Rl),Rl jFDPH SERVICE ADDR, 

Rl »G0 TO IT, RESTORE PI. 



004034 
004024 
000001 
003312 
003562 



TYPTAB! .WORD PASEBD 

.WORD ENDSVC,ERRSVC,ERSVCS 

.WORD HSG.»lfFRSVC2,MSGN.,l,l,l,l,MSGS.,l,l,DERPX.,WSGD. 
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»MSGN, 


POUTINE 


, SERVICES CALl 


















003312 


112767 


177777 


176026 MSGS.I 


MOVB 


#-l,MSGFLG 




003320 


000402 






BP 


MSCONT 




003322 


105067 


176020 


MSGN.i 


CIRR 


MSCFLG 


















003326 


012167 


175532 


HSCONTJ 


HOV 


(P1)+»TABADP 




003332 


012167 


176156 




MOV 


(Rn + ,CSTART 




003336 


010167 


176150 




HOV 


Rl.CADDR 




003342 


016701 


176146 




MOV 


CST»RT,R1 




003346 


032777 


020000 


175622 


BIT 


«8IT13,9SP 




003354 


001033 






BNE 


MSGl. 




003356 


105767 


175764 




TSTB 


MSGFLG 




003362 


100410 






BMI 


IS 




003364 


004767 


001300 




JSR 


PCENDCOM 




003370 


004567 


003754 




JSR 


P5,TYPEN 




003374 


022744 






CRCR 






003376 


025721 






AEND 






003400 


025756 






IPASS 






003402 


nooooo 













003404 


016701 


175454 


111 


MOV 


TABADR,R1 




003410 


012146 




2lt 


MOV 


(Pl)+,-(SP5 




003412 


022716 


177777 




CMP 


»-l,(SP) 




003416 


001412 






BEQ 


MSGl. 




003420 


004767 


003742 




JSP 


PC, TYPE 




003424 


000771 






BP 


25 



»SET MSGS CALL FLAG 

jCONTINUE 

;SFT MSGN CAI.f. ft.AG 

SGET ASCII TJBLF ADDR, 

;MQDULE ADDS TO CSTSRT, 

;RESUME AODB TO CADPR, 

J MODULE ADDR TO RJ. 

;INHIBIT PRBOR PRINT? 

»8P IF YES. 

>IS THIS A MSGS CALt. ? 

)YES, CONTIMUF 

»N0, DO COMMON STUFF, 

STYPE 

J 2 CARRAGE RETURNS 

;COMMON HKADFB. 

;PASS •. 

(TABLE ADDR TO Rl. 
;GET MESSAGE ADDR. 

iTEPMINATOR? 
;BR IF YES. OONE, 
;N0. TYPE MESSAGE. 
jGO nn IT AGAIN, 
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|N8Gt Ckll SERVICED HERE 

lABCII MESSAGE ADDR TO STACK, 
(RESUME ADDR TO CADDR, 
J INDICATE MONITOR QUE CALLING. 
•SO TYPE DESIRED MESSAGE. 
M8G1.I 

I GO QUEUE UP TO RESUME. 





















503426 


ai2i«B 






903430 


010167 


176056 




003434 


00S067 


176054 




Q03440 


004767 


003722 




003444 


10S067 


175344 




003450 


000167 


176026 



NOV 


tBlJ + fCSP) 


MOV 


Rl, CADDR 


CLR 


C8TART 


JSR 


PCTTPB 


CLRB 


TTYBSY 


JMP 


COHOUE 
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DXQABM.Pll 51-APP-77 12|42 SEQ D028 

jBREAK ROUTINE. SERVICES BREAK CALL. 

BREAK. I MOV (PD + .RO jGET MODULE ADDR, 

MOV Rl.DSTADR | GET DESTINATION ADDR. 
JMP lOQSVE J QUE UP TO RESUME 



782 








783 








784 


003454 


012100 




785 


003456 


010167 


175372 


786 


003462 


000167 


177344 
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003466 


010167 


176020 




003473 


004767 


001254 




003476 


012601 






003500 


010167 


176010 




003504 


004567 


010124 




003510 


026424 






003512 


004767 


001234 




003516 


004567 


010650 




003532 


026436 






003524 


004767 


001222 




003530 


004567 


010636 




003534 


026470 






003536 


032777 


020000 




003544 


001004 






003546 


012746 


026423 




903552 


004767 


003610 


606 


003556 


000167 


001014 



fMSGDI SEPVICE- TYPE DATA ERROR COUNT AND TRANSFER SIZE 
I AMD HALT MODULE IE NECESSARY 

(SET UP RESUME ADDRESS 
iGET MODULE ADDRESS 

(SAVE ADDRESS 
(GET MODULE NAME 

» SETUP ERROR COUNT (ASCII) 



(SETUP TOTAL WORDS TRANSFERRED 



175432 



MSGD.i MOV 


Rl.CADDR 


JSR 


PCTYPDAT 


«0V 


(SP)+,F1 


MOV 


Rl.CSTART 


JSR 


RS.FILLNM 


AERNM+1 




JSR 


PCTYPDAT 


JSR 


RS.BDCNV 


AEPCT 




JSP 


PCTYPDAT 


JSR 


RS.BDCNV 


AEPTOT 




BIT 


»BIT13,»SR 


BNE 


M8GD1, 


HOV 


tAERNM,«CSP) 


JSR 


PC TYPE 


MSGDl.t JMP 


ERSVND 



(INHIBIT ERROR PRINTOUT? 
(YES« BRANCH 
(NO- TYPE MESSAGE 

(CHECK FOR HALTING MODULE, AND RETURN IF NOT 
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SEfJ nO30 



807 
SOB 








fDERRX, ROUTINE. SERVICES EXTENI 
(CHECKDATA ROUTINE. TYPES ERROR 


JED DATA ERROR C4LLS FRO" THE MO 
INFORMATION AND RET'IPMS 


809 
810 


003562 


112767 


000001 175227 DERRX.( HOVB 


•l.ERPIND 




811 


003570 


005721 




TST 


(Rl) + 


■POINT TO RETURN LOCATION 


812 


003572 


010167 


175714 


MOV 


Rl.CADDR 


(SETUP RESUME ADDRESS 


813 


003576 


004767 


001150 


JSP 


PCTYPDAT 


(GET MODULE ADDRESS 


814 


003602 


013601 




HOV 


(SP)+,R1 




815 


003604 


010167 


175704 


HOV 


Rl.CSTART 


(AND SAVE IT 


816 


003610 


004767 


001136 


JSR 


PCTYPDAT 




817 


003614 


012667 


175226 


HOV 


CSP)+, NUMBER 


(SETUP ADDRESS OF CKDATA CALL 


818 


003620 


004767 


001044 


JSR 


PCENDCOM 




819 


003624 


012702 


000005 


MOV 


#5,R2 




830 


003630 


004767 


001116 


OERRXli JSR 


PCTYPDAT 




821 


003634 


005302 




DEC 


R2 




822 


003636 


001374 




BNE 


DERPXl 




823 


003S40 


016146 


000030 


HOV 


ERCNT(R1),-(SP) 


(ERROR COUNT TO STACK 


824 


003644 


004567 


010522 


JSR 


PS.BDCNV 


(CONVERT ERPOP COUNT TO DECIMAL 


825 


003650 


026335 




AERNHB 






836 


003652 


005046 




CLR 


-(SP) 




837 


003654 


005766 


000002 


TST 


2(SP) 




838 


003660 


001402 




BEQ 


)( 




829 


003662 


012716 


000060 


HOV 


#60, (SP) 


(CSRA EA BITS 


830 


003666 


004567 


010260 


Hi JSR 


RS.OACNVX 


(CSR ADDRESS- ASCII 


831 


003672 


026205 




ADTE6 






832 


003674 


012603 




MOV 


(SP)+,P3 


(SAVE TABLE ADDRESS 


833 


003676 


012667 


175252 


MOV 


CSP)+>ERRPOS 


(SAVE OFFSET COUNT 


834 


003702 


006367 


175246 


ASL 


ERRPOS 




835 


003706 


012346 




MOV 


(R3)+,-(SP) 


(SETUP PEAD BUFFER PA 


836 


003710 


012346 




HOV 


(R3H»-(SP) 


(GET EA BITS 


837 


003712 


066766 


175236 000002 ADD 


ERRPOS, 2(SP) 




838 


003720 


103002 




BCC 


2t 




839 


003722 


062716 


000020 


ADD 


•20, (SP) 




840 


003726 


005733 




2ti TST 


(R3) + 


(SKIP SIZE 


841 


003730 


004567 


010216 


JSR 


RS.OACNVX 


(GET PA OF RDADR 


842 


003734 


036265 




ADTE4 






843 


003736 


012346 




MOV 


(3)+,-(SP) 


(GET WRITE PA 


844 


003740 


012346 




MOV 


(3)+,-(SP) 


(GET EA BITS 


845 


003742 


066766 


175206 000002 ADD 


ERRPOS, 2(SP) 




846 


0O375Q 


103002 




BCC 


3* 




847 


003752 


062716 


000020 


ADD 


#20, (SP) 




848 


003756 


004567 


010170 


3ll JSR 


P5,0ACNVX 


(GET ASCII OF WPAOR 


849 


003762 


026350 




ADTE5 






850 


003764 


004567 


010150 


JSR 


R5,0ACNV 


(CONVERT S/B TO ASCII 


851 


003770 


026220 




A0TE3 






853 


003772 


004567 


010142 


JSR 


RS.OACNV 


(CONVERT MAS TO ASCII 


853 


003776 


026233 




ADTE3 






854 


004000 


016746 


175150 


MOV 


ERRPOS, -CSP) 


(ERROR POSITION IN BUFFER 


855 


004004 


000241 




CLC 




(CORRECT BACK FROM BYTE TO WORD 


856 


004006 


006216 




ASR 


(SP) 




857 


004010 


00S216 




INC 


(SP) 


(MAKE 1ST WORD 11 


SSI 


004012 


004567 


010354 


JSR 


PS.BDC'.'V 


(GET DECIMAL 


859 


004016 


026317 




ADTE7 






860 


O04020 


0001*7 


000306 


JMP 


EB8VX 


(GO TO COMMON ROUTINE 
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SEQ 0031 



■>i 




■ 13 




161 




•t4 


004034 


8iS 


904033 


l« 


004034 


167 


904040 


181 


904Q43 


• «• 


0040SO 


170 


004054 


I7t 


904063 


(72 


004064 


173 


904070 


174 


004074 


I7S 


904100 


■ 78 


0041Q4 


877 


004110 


§7« 


904113 


179 


004116 


• SO 


004133 


1st 


904136 


• S3 


904130 


SS3 


004133 


SB* 


004:36 


sss 


004143 


•se 


004144 


SS7 


904190 


sss 


004153 


sss 


9041S6 


• 90 


004160 


• 91 


904164 


S93 


004166 


S93 


904173 


S94 


004176 


S99 


004303 


S9t 


004306 


S97 


004313 


SSS 


004314 


899 


004330 


900 


904234 


901 


004330 


903 


004334 


903 


004340 


904 


004243 


90S 


004344 


906 


004353 


907 


004254 


90S 


004360 


909 


004264 


910 


004266 


911 


004270 


913 


004272 


913 


004276 


914 


004300 


91! 


004104 


916 


004)06 



f ERROR CkthB knt SERVICED HERE, 
.■14 %m wiiipav ^nuVKVus rn*A'% nr r&T,7, 



112767 

000406 

105067 

000403 

113767 

012167 

122767 

001003 

012167 

010167 

016701 

004767 

005361 

001003 

005161 

013702 

004767 

005303 

901374 

016146 

y04So? 

036335 

105767 

001047 

004567 

036333 

004567 

036330 

013667 

104413 

016746 

016746 

004567 

036265 

012667 

104413 

016746 

016746 

004367 

036350 

009046 

016667 

001403 

012716 

004567 

02620! 

000421 

022626 

004967 

026167 

004S67 

026152 

005046 



174757 

000002 
175440 
000003 

174774 
175416 
179414 
000564 
000030 

000030 
000005 
000634 



174647 

007763 

007754 

174654 
001046 
174646 
174644 

007740 

174626 
001046 
174620 
174616 
007712 



174765 ERSVC3I 

ERSVCli 

174747 ERnSVCi 
ERSVCAi 
174735 

Itl 



EPSVCBJ 
ERSVCCl 



000002 174706 



000060 
007666 



111 
2*1 



007642 
007634 



MOVB 
BR 

CLRB 
BR 

MOVB 

MOV 

CMPB 

BNE 

MOV 

MOV 

MOV 

J8R 

INC 

BHE 

COM 

MOV 

JSR 

DEC 

8NS 

MOV 

JSR 

Iernmb 

TSTB 

BNE 

JSR 

ADTE2 

JSR 

ADTE3 

MOV 

GETPAt, 

MOV 

MOV 

JSR 

ADTE4 

MOV 

GETPAI 

MOV 

MOV 

JSR 

ADTE5 

CLR 

MOV 

6EQ 

MOV 

JSR 

ADTE6 

BR 

CMP 

JSR 

ASTATC 

JSR 

ACSRC 

CtP 



t3(ERRIN0 

ERSVCA 

ERRIND 

ERSVCA 

12. ERRIND 

(R1)+«C8TART 

I 3. ERRIND 

II 

CRD^^iTABADR 

R1,CADDR 

CSTARTiRl 

PCiENDCOM 

ERCNTCRl) 

ERSVCa 

ERCNttRlJ 

15, R2 

PCTYPDAT 

R2 

ERSVCC 

ERCNTCRDi-tSP) 

R9 : 96CNV 

ERRIND 
21 

R5,0ACNV 



RS.OACNV 

C5P)'^ I NUMBER 
NUMBER 
NUMBPA,«CSP) 
NUHBEA,-(SP) 
RS,OACNVX 

(SP]+>NUMBER 
NUMBER 
NUMBPA,>CSP) 
NUMBEA,>CSP) 
RSiOACNVX 

-CSP) 

2CSP)»CCSRA 

II 

t60>CSP) 

BS.OACNVX 

ERSVX 
(SP)+,tSP)+ 

RSiOACNV 

R5,0ACf!V 



I INDICATE ERRORN CALL, 

IINDICATE Bktk ERROR. 

J INDICATE "NORMAL" ERROR. _ 
(SAVE START ADDR OF MODULE. 

I ERRORN CALLT 
IBR IP NOT 
I SAVE TABLE ADDR. 
(RESUME ADDR TO PSENOB. 
(GET BACK START ADDR, 
I DO COMMON STUFF, 
I INCREMENT MODULE'S ERROR COUNT, 
I BR ir RESULT NOT 0, 
I RESET COUNT TO 'l, 
I GET TYPE DATA FROM QUEUE TO STACK, 
|D0 IT, 
IDONET 
:BR IF NOT. 

lERROR COUNT TO STACK. 
iCONVER? ERROR COUNT TO DECIMAL, 

I DATA ERROR? 

tBR IF NOT. 

(CONVERT WAS TO ASCII. 

tCONVERT S/B TO ASCII. RESET TyPQ2. 

{GET ADDR OF LOCATION READ 



tCONVERT HASADR TO ASCII, 



•CONVERT SSSDB TO ASCII, 

jO ONTO STACK 

fSAVE CSR ADDRESS 

tIF 0, BRANCH 

(SETUP EA BITS 

(CONVERT CSP ADDS TO ASCII, 



(SKIP WAS AND S/B, 
(CONVERT STAT REG CONTENTS TO ASCII, 

(CONVERT CSP CONTENTS TO ASCII, 

(0 ONTO STACK 
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917 
918 
919 
920 
921 
922 
923 
924 
929 
926 
927 
928 
929 
930 
93t 
932 
933 
934 
935 
93S 
937 
938 
939 
940 
941 
942 
943 
944 
945 
946 
947 
948 
949 
9!0 
991 
952 
953 
994 
999 
996 
957 
958 
959 
960 
961 
962 
963 
964 
969 
966 
967 
968 
969 
970 
971 
972 



004310 
004316 
004320 
004324 
004330 
004332 
004340 
004342 
004346 
004390 
004394 
004360 
004362 
00*4YS"4 
904366 
004370 
004372 
004374 
004376 
?!T4400 
004404 
0O4406 
004410 
004412 
004414 
004416 
004424 
004436 
004432 
004434 
004436 
004440 
004442 
004446 
004492 
0O4460 
004462 
004466 
004472 
004476 
004902 
004910 
004912 
004916 
004922 
004926 
004530 
004932 
004536 
004540 
004544 
004S90 
004592 
004554 
004560 
004964 



016667 
001402 
012716 
004567 
026136 
032777 
001116 
109767 
001414 
004767 
004567 
022744 
026066 

02S72! 
025796 
026327 
000000 
000407 
004967 
022744 
029721 
029756 
026327 
000000 
122767 
003406 
004567 
026279 
026177 
000000 
000404 
012746 
004767 
122767 
00 1004 
012746 
004767 
012746 
004767 
122767 
001032 
016702 
012703 
022712 
001417 
013246 
004967 
029679 
012746 
004767 
009303 
001363 
012746 
004767 
000794 



000002 174642 

000060 

007622 311 

020000 174636 ERSVXl 

179009 

013476 
002770 



000002- 174373 Bit 
002716 



026130 111 

002714 

000001 174337 211 

026311 

002674 

022772 311 

002664 

000003 



174307 



174346 
000010 
177777 



025675 

002616 



022772 
002602 



411 
9ii 



MOV 

BEQ 

MOV 

JSR 

ACSRAC 

BIT 

BNE 

TSTB 

BEQ 

JSR 

JSR 

CRCR 

TOIIM 

FSTtW 

AENO 

IPAS8 

ERRNMB 



BR 

JSR 

CRCR 

AEND 

IPASS 

ERRNMB 



CMPB- 

BLE 

JSR 

ADTE4A 

ADTERR 



BR 

MOV 

JSR 

CMPB 

BNE 

MOV 

JSR 

MOV 

JSR 

CMPB 

BNE 

MOV 

MOV 

CMP 

BEQ 

MOV 

JSR 

H0LD6 

MOV 

JSR 

DEC 

BNE 

MOV 

JSR 

BR 



2(SP)fCCSRA 
3S 

«60>(SP) 
R5,0ACNVX 

tBIT13rlSR 

ERSVND 

CLOCK 

71 

PC.ERRTYM 

R9,TYPEN 



81 

PS.TYPeN 



#2. ERRIND 

18 

RSflYPEN 



21 

l»EPROR,-tSP) 

PC, TYPE 

#1, ERRIND 

31 

IADTEX,oCSP) 

PC, TYPE 

IACPLF,-(SP) 

PC, TYPE 

(3. ERRIND 

ERSVND 

TABADR,R2 

I8.,R3 

i-l,(2) 

61 

8(2)t,-CSP) 

R9,0ACNV 

tH0LD6,>(SP) 

PC, TYPE 

R3 

91 

tACRLF,-CSP) 

PC , TYPE 

41 



(SAVE CSR ADDRESS 
(BRANCH IF ADDRESS 

(CONVERT CSR ADDR TO ASCII, 

(INHIBIT ERROR PRIHTT 

(BR IF YES, 

(IS THERE A CLOCK AVAILABLE 7 

(NO, CONTINUE 

(YES, SETUP TIME OF THE ERROR 

(TYPE 

(2 CARRAGE RETURNS 

(THE TOTAL TIME 

irm pt'ss TTW 

(COMMON HEADER 

(PASS NUMBER 

(ERROR NUMBER 

(THAT'S ALL 

(CONTINUE 

fTYPE 

(2 CARRAGE RETURNS 

(COMMON HEADER. 

(PASS I, 

(ERROR *, 

(DATA ERRORT 

(BR IF NOT. 

(YES, TYPE 

(DATA ERROR VALUES 



(TYPE ERROR MESSAGE. 

(EXTENDED DATA ERRO»T 

(NO- BRANCH 

(YES> OUTPUT POSITION IN BUFFER 



(ERRORN CALL? 

(BR IF NOT. 

(TABLE ADDR TO R2. 

(WILL TYPE 8 VALUES PER LINE, 

(TERMINATORT 

(BR IF YES. DONE. 

(PUT VALUE IN STACK. 

(CONVERT IT TO OCTAL. 

(AND PUT IT HERE 

(TYPE IT. 

(DONE S PER LINET 
(BR IF NOT. 
(OUTPUT CRLF. 

(GO FOR MORE. 
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SEQ 0033 



973 
974 
975 
976 
977 
978 
979 
980 
981 
983 
983 
984 
985 
986 
987 
988 
989 



004S66 
004572 
004576 
004602 
004604 
904612 
004614 
004632 
004624 
004630 
004634 
004640 
004644 
004646 
004652 
004660 
004664 



013746 
004767 
005777 
100410 
026761 
003010 
032777 
001004 
00S067 
000167 
105067 
005767 
001407 
016700 
016760 
005067 
000167 



022773 
003570 
174374 

174444 000030 

040000 174354 

174330 
000166 
174154 
174314 



174643 
174303 
174274 
174612 



OOOOSO 



611 


MOV 


#ACBLr,-(SP) 




JSR 


PC, TYPE 


ERSVSOt 


TST 


»SR 




BHI 


It 




CMP 


EPBLIM.ERCNTCF 




BGT 


21 




BIT 


• BIT14,I>SR 




BHE 


21 


111 


CLR 


CCSRA 




JMP 


ENDSVA 


2li 


CLRB 


TTYBSY 




TST 


CCSRA 




BEQ 


3« 




HOV 


CSTART,RO 




MOV 


CCSRA, CSRAtRO) 




CLR 


CCSRA 


3li 


JMP 


COMOUE 



I OUTPUT CRLr. 

iHAtl MODULE ON ERROR? 
iBR ir YES 
I jERPOR COUNT 20 OR GREATER? 
JBR IF NOT. CONTINUE MODULE EXECUTION. 
I YES. HALT MODULE AFTER 20 ERRORS? 
»N0- SKIP 
jCLEAR CCSRA 
>YES, GO HALT MODULE 
SQUE TO RESUME 
»IF NOT SETUP, nOM'T RESTORE INTO MODULE 



J RESTORE CSRA IN "MODULE 
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990 


O04670 


104413 


001046 


991 


004674 


016746 


174150 


992 


004700 


016746 


174146 


993 


004704 


016746 


174136 


994 


004710 


160116 




995 


004712 


004567 


007222 


996 


004716 


025746 




997 


004726 


004567 


00''226 


998 


004724 


025733 




999 


004726 


004567 


006702 


1000 


004732 


025721 




loot 


004734 


016146 


000026 


1002 


004740 


005216 




1003 


00*742 


004567 


007424 


1004 


004746 


025766 




1005 


004750 


0002C7 





ESOCOHt GETPASjNUVBER 



HOV 

MOV 

MOV 

SUB 

JSR 

AEND2 

JSR 

AENDl 

JSR 

AEND 

HOV 

INC 

JSR 

APASS 

RTS 



NUMRPA,-(SP) 
NUMBEA, -(SP) 
NUMBER, -(5P) 
Rl.fSP) 
RS.OACNV 

RS.OACNVX 

PS.FILLNM 



jNUHBER CONTAINS ADHRESS OF CALL 



f COMPUTE ASSE«ELY PC. 
jCONVEPT ASSEMBLY Pr TO ASCII. 



rCONVERT PC TO ASCII. 



jLET'S GET MQnULE NSMF. 

jSTUFF AT AEND. 
PSCKT(Rn,-C5P) jGET PASS COUNT. 
(SP) sUP IT 1, 

RS.BDCNV jCONVERT IT TO DECI-'AL ASCIT. 



PC 



JLET'S GET OUT. 
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SEQ 003S 



1006 










ITYPDAT 


ROUTIN 


■•E LOADS QUEUED 1 


1007 
















1001 


004752 


011646 






TYPDATi 


MOV 


CSP),-CSP) 


1009 


004754 


026727 


174122 


031222 




CMP 


TYPQ2flTyPLIM 


1010 


004762 


103403 








BLO 


11 


}on 


004764 


012767 


030072 


174110 




MOV 


ITYPEQ, TYPOS 


1012 


004772 


017766 


174104 


000002 


Hi 


MOV 


•TYPQ2r2(8P] 


1013 


005000 


062767 


000002 


174074 




ADD 


»2,TYPa2 


1014 


Q03006 


10S367 


173775 






DECS 


TYPSUE 


lOlS 


OOS0I2 


000207 








RTS 


PC 



ISAVE EXIT ON STACK AGAIN. 

(REACHED END OF QUEUE? 

IBR IF NOT. 

jYBS. POINT TO START OF QUEUE. 

I QUEUE DATA TO STACK. 

(UPDATE QUEUE POINTER, 

(DECREMENT COUNT, 

(EXIT, LEAVE DATA IN STACK. 
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SCQ 0036 



1016 
1017 








lEND CALL SERVICED HERE. 


1018 


005014 


OlllOl 




ENDSVCl 


1 MOV 


CBn»Rl 


1019 


005016 


004767 


177S46 




JSR 


PCENDCOM 


1020 


005022 


052761 


020000 000020 


ENDSVAJ 


1 BIS 


»BlT13iSTATCRn 


1021 


005030 


105767 


174317 




TSTB 


CLOCK 


1022 


005034 


001413 






BEQ 


11 


1023 


005036 


004767 


013010 




JSR 


PCERRTYM 


1024 


005042 


004567 


002302 




JSR 


RS.TYPEN 


1025 


005046 


022744 






CRCB 




102S 


005050 


026066 






TOTIM 




1027 


005052 


026111 






PSTIM 




1028 


005054 


025721 






AEND 




1029 


005056 


025775 






MQDENO 




1030 


005060 


000000 











1031 


005062 


000406 






BR 


2S 


1032 














1033 


005064 


004567 


002260 


ISI 


JSR 


RS.TYPEN 


1034 


005070 


022744 






CRCR 




1035 


005072 


025721 






AEND 




1036 


005074 


025775 






MODENC 




1037 


005076 


000000 











1038 


005100 


105067 


173710 


211 


CLR8 


ttybsy 


1039 


O05104 


005761 


000020 


ENDSVE( 


TST 


STATCRn 


1040 


005110 


100410 






BMI 


It 


1041 


005112 


105067 


173675 




CLRB 


BRAKE 


1042 


005116 


105767 


173702 




TSTP 


STOP 


1043 


005122 


001403 






BEQ 


IS 


1044 


005124 


105767 


174224 




TSTB 


ALLBK 


1045 


005130 


001413 






BEQ 


ENDSVG 


1046 


005132 


032761 


010000 000020 


I$l 


BIT 


*BIT12,STATtRn 


1047 


005140 


001402 






BEQ 


61 


1048 


005142 


105367 


173654 




DECS 


HDXCNT 


1049 


005146 


105367 


173643 


6$( 


DECB 


MOOCNT 


1050 


005152 


105767 


173646 




TSTB 


STOP 


1051 


005156 


001445 






BEQ 


ENDSVF 


1052 


0O5160 


126767 


173631 173637 


EHDSVGt 


C«PB 


MOOCNT, BKCNT 


1053 


005J66 


003046 






BGT 


ENDSVD 


1054 


005170 


105767 


174160 




TSTB 


ALLBK 


1055 


005174 


001404 






BEQ 


11 


1056 


005176 


105767 


173613 




TSTB 


MODCNT 


1057 


005202 


001404 






BEQ 


ENDSVB 


1058 


005204 


000437 






BR 


FNDSVD 


1059 


005206 


105767 


173601 


111 


TSTB 


BRAKE 


1060 


005212 


001034 






BNE 


ENDSVD 


1061 


005214 


016767 


174022 174022 


ENDSVBl 


HOV 


OFFSET, OFFSTD 


1062 


005222 


066767 


174074 174014 




ADO 


R0TSI2,0FFSTD 


1063 


005230 


026767 


174010 174002 




CHP 


OFFSTD, OFFMX 


1064 


005236 


101402 






BLOS 


3t 


1065 


005240 


005067 


174000 




CLP 


OFFSTD 


1066 


005244 


004767 


013064 


3«! 


JSR 


PCCLKOFF 


1067 


005250 


004767 


014220 




JSR 


PC.HVCODE 


1068 


005254 


004767 


013136 




JSR 


PC.CLKON 


1069 


005260 


112767 


000001 174040 




MOVB 


ll.RUNRFL 


1070 


005266 


000167 


003642 




JMP 


RUNRES 


1071 


005272 


105767 


173517 


ENDSVr( 


TSTB 


MODCNT 



(GET START ADDP, 

(DO COMMON STUFF. 

(SET STOP BIT IN MODULE STAT, 

(CLOCK AVAILABLE ? 

(NO, CONTINUE 

(YES, SETUP TIME OF DROP 

(TYPE 

!2 GARBAGE RETURNS 

[TOTAL TIME 

(MODULE PASS TIME 

(COMMON HEADEP 

(MODULE DROPPED 

(THAT'S ALL 

(CONTINHE 

(TYPE 

(2 GARBAGE RETURNS 
(COMMON HEADER, 
(END MESSAGE. 

(CLEAR TTY BUSY Ii^DICATOR. 

(BACKGROUND MODULE? 
(BR IF NOT. 
(RELEASE BRAKE. 
(STOP MODULES FOP RELOCATION? 
(NO, CONTINUE 

(RUN ALL PKMODS BEFORE RELOCATION ? 
(NO, CONTINUE 
(EXTENDED I/O MOD? 
(N0« BRANCH 

(YES, DEC EXTENDED "OD COUNT 
(DECR COUNT OF MODULES RUNNING, 
(RELOCATE CODE? 
(NO- BRANCH 
(ALL 170 MODULES OFF? 
(NO- BRANCH 

(RUN ALL BKMOD'S BEFORE RELOCATING T 
(NO, CONTINUE 
(ALL MODULES DONE 7 
(YES, GO RELOCATE 

(NO, GO RUN THE PEST OF THE MODULES 
(YES- BKMOD OFF? 

(NO- BRANCH (STOP BKMOD CLEANLY3 
(YES- CALCULATE NEW OFFSET 
(BY STEPPING AHEAD 8K OR 16K 
(NEW ADDRESS IN RANGE? 
(YES- BRANCH 

(NO- START OVER IN BANK 
(MAKE SURF SYSTEM CLOCK IS OFF 
(MOVE PROGRAM 

(TURN SYSTEM CLOCK BACK ON 
(SET FLAG TO INDICATE MODULE RESTART 
(GO STARTUP AGAIN 
(ANY MODULES RUNNING? 
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1073 003376 001003 

1073 60S}00 000167 001544 

1074 O0SJO4 000167 174704 
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SEQ 0037 



BNE 

JMP 

CNDSVDil JMP 



ENDSVD 
CTRLCB 
QUET8I 



(YES- BRANCH 

iCOUNT 0, TERMINATE RUN MODE, 

lOO BACK TO SERVICE QUEUES. 
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1075 
1076 
1077 
1078 
1079 
1080 
1091 
1082 
1083 
1084 
1085 
1086 
1087 
1088 
1089 
1090 
1091 
1092 
1093 
1094 
1095 
1096 
1097 
1098 
1099 
1100 
1101 
1102 
1103 
1104 
1105 
1106 
1107 
1108 
1109 
1110 

nil 

1112 
1113 
1114 
lllS 
1116 
1117 
1118 
1119 
1120 
1131 
1132 
1123 
1134 
1125 
1126 
1127 
1128 
1129 
1130 



iPASEND ROUTINE. TYPES END Of PASS MESSAGE, 

jBACKGROUND MODULES ARE NOT ALLOWED TO MAKR HULTIPLF PASSES. 



005310 
00SJ12 
005320 
005324 
005330 
ft05334 
005336 
005342 
005346 
005354 
005356 
005362 
005366 
005372 
005374 
005400 
005403 
005406 
005410 
005412 
005414 
005416 
005430 
005432 
005426 
0O543O 
005432 
00S434 
005436 
905 440 
005442 
005446 
005452 



005454 
O0S456 
005460 
005464 
005470 
005472 
005474 
005502 
005504 
005512 
005514 
005520 
005522 
005524 
005526 
005530 
005532 
005534 



011101 
016167 
010167 
005261 
105767 
001404 
004767 
004767 
032777 
001433 
004767 
016146 
004567 
036016 
105767 
OOIOIO 
004567 
032744 
035731 
036007 
022742 
000000 
000410 
004567 
023744 
035731 
036007 
036066 
036111 
000000 
105067 
105767 
100033 



010046 
010146 
013700 
063700 
011001 
001416 
033761 
001770 
033761 
001364 
003761 
001361 
013601 
013600 
000404 
012601 
012600 
000167 



000062 174172 
174170 
000036 
174017 

013120 
012514 
010000 173622 

177306 
000026 
007000 

173753 

001742 



PASENDt HQV 

MOV 



MOV 

INC 

TSTB 

BEO 

JSR 

JSR 

BIT 

BEO 

JSR 

MOV 

JSR 

BPSCNT 

TSTB 

BNE 

JSR 

CRCP 

AEND 

APSEND 

CR 



BR 



(Pl)fRl 

RSTPTtRDiCADDR 

P1,CSTART 

PSCNTCRl) 

CLOCK 

1$ 

PC.CKHUNG 

PC.PASTYM 

iBlT12,08R 

PSENDA 

PCENOCOM 

PSCNTCRl), -CSP) 

RS.BDCNV 

CLOCK 
2f 

R5,TYPEN 



2tt 



173346 
173640 



026530 
000003 



040000 000030 
030000 000030 
000026 



177344 



JSR 

CRCP 

AEND 

APSEND 

TOTIM 

PSIIM 


PSENDAi CLRB 

TSTB 

BPL 
(ELSE MAKE SURE 
I AN END or PASS 

MOV 

MOV 

MOV 
lltt ADD 

MOV 

BEO 

BIT 

BEO 

BIT 

BNE 

TST 

BNE 

MOV 

MOV 

BR 
1211 MOV 

MOV 

JMP 



»LOAD R1 WITH MODULF ADDRESS 

jSAVE RESTAPT ADDRESS 

;SAVE MODULE ADDRESS 

I INCREMENT PASS COU»;T, 

;IS THERE A CLOCK AVAILABLE? 

jNO, CONTINUE 

jGO CHECK FOR ANY "HUNG" MODULES 

»SrT UP RUNTIME, PASTIME INFORMATION 

jENDPAS PRINTOUT? 

JBR IF MOT. 

;D0 COMMON STUFF. 

jNOW GET IT. 

jCONVERT TT to decimal ASCII, 

jSTUFF IT AT BPSCNT. 

lis THERE A CLOCK AVAILABLE? 

tYES, CONTINUE 

:TYPE 

>2 CABRAGF RETURNS 

rCOMMON HEADER. 

;ENDPAS AND COU^tT. 



PSENDA jCONTINUE 

R5,TYPEN fTYPE 

j2 capraoe returns 

jCOMMON HEADEP 

J end pass and count 

» TOTAL TIME 

jPASS TIME 

jTHAT'S ALL 
TTYBSY jCLEAR TTY BUSY INDICATOR. 

CHN ,IN CHAIN MODE? 

10« jBR IF NOT 

EVERY MODULE KEEPS RUNNING TILL ALL HAVE COMPLETED 
- THEN STOP ONE AT A TIME, THEN RETUBN TO CHAIN MONITOR 
RO,-(SP) jSAVE RO 

Rl.-tSP) jSAVE Rl 

«MODO-2»RO jGET LIST OF MODULE ADDRESS 

»2.P0 jLOOK AT NEXT ENTRY 

CR0)»R1 I ANY MODULES LEFT? 

12« IBR IF NOT, ALL DONE, DO NOT RESTART MODULES 

»BIT14,STAT(R1) (MODULE SELECTED? 
11$ (BR IF NOT 

»B1T13,STAI(R1) (HAS IT DROPPED? 
118 jBR IF YES 

PSCNT(Rl) (HAS HE DONE A PASS YET? 
Ill iBR IF YES 

CSP)+,R1 (RESTORE R 
(SP)+,R0 (RESTORE RO 

101 (GO LET THIS GUY DOING THE EOP RUN AGAIN 

(SP)+,R1 (RESTORE Rl 
(SP)+»R0 (RESTORE RO 
ENDSVE (START LETTING MODULES DIE OFF 
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SEQ 0019 





008940 


109767 


173360 




leii 


TSTB 


STOP 




oelS4« 


oe!4oa 








■IQ 


141 iNQ BR. 




90SS4i 


000167 


177332 






JKP 


ENDSVE 




908983 


109367 


173384 




i4ii 


IKCB 


PkSTOT 




009886 


109767 


173831 






TSTB 


ROTI 




0OS982 


001403 








BCS 


11 




008864 


108767 


173333 






TSTB 


HDXCHT 




008870 


001031 








BKE 


3t 




009872 


126767 


173334 


173231 


ill 


CBPB 


PASTOT.PASREli 




008600 


103418 








Bt.0 


2« 




008603 


108767 


173807 






TSTB 


RELOC 




Q0S606 


001412 








BEO 


31 




008610 


108767 


173813 






TSTB 


LOCK 




008614 


001007 








BNE 


3* 




908616 


108767 


173830 






TSTB 


"STOP 




Q08633 


001004 








BNE 


2*. 




008634 


108367 


173174 






I*CB 


STOP 




008630 


000167 


177280 






JHP 


EKOSVC 




009634 


008761 


000030 




3«i 


TST 


ST*T(B1) 




008640 


100418 








BMI 


PSENDB 




008642 


108067 


173148 






CLRB 


BRAKE 




008646 


033761 


001000 


000030 




BIT 


»B1T9,STAT(R1) 




008684 


001613 








BEO 


ENDSVD 




009686 


082761 


03S000 


000030 




BIS 


»BIT13,SIAT(R1) 




60S66« 


109367 


173139 






tiSCh 


SKCm 




008670 


000167 


177310 






JHP 


ENDSVE 




008674 


000167 


173603 




PSENDBf 


JSP 


COMQUE 



































(STOP klh MODULES TO ROTATE CODET 



(COUNT TOTAL PASSES AT PRESENT OFFSET 

IHRITE BUFFER ROTATION ENABLEDT 

iNOf TREAT LIKE ALL BKNODS RUNNING 

I ANY EXTENDED MODULES RUNNINOT 

ITES- SKIP ALTERNATE RELOCATION METHOD 

(HO- UP TO RELOCATION HUMBERT 

I NO- BRANCH 

I YES- RELOCATION ALLOHEDT 

(NO- BRANCH 

(LOCK SET TO INHIBIT RELOCATION? 

tYES- BRANCH 

lALLOH STOP TO SET T 

I NO, CONTINUE 

lYESf SET STOP 

I BACKGROUND MODULE? 
I BR IF NOT, 
I RELEASE BRAKE, 
lis IT AN NBKHOO T 
;N0( CONTINUE 
lYES, SET IT'S STOP BIT 
sOHE LESS BKMDD RUKNIHa 
I GO TAKE CARE OF OTHER STUFF 
iGO TO COMMON QUE CALL, 



OABM DEC/Xll STANDARD MONITOR 
DXOABM.PH Jl-APB-77 12|42 
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I TRACE TRAP ENTERS HERE. 



1161 


















1162 


OOS700 


109367 


173130 




TRCIl 


DECS 


BKTIHB 




1163 


005704 


100401 








BMI 


TBCIC 




1164 


005706 


000006 






TRCIAt 


BIT 






1165 


005710 


116767 


173422 


173116 


TRCICl 


MOVB 


BKTIHE.BKTIMR 




1166 


005716 


005767 


173064 






TST 


lOQUE 


»I/0 OR TYPE QUE WAITING? 


1167 


00S722 


001771 








BEQ 


TRCIA 


JNO, EXIT. 


11S8 


005724 


012667 


173140 




TRCIBi 


MOV 


(SP)+,TRCPC 


ISAVE MOD'S PC, 


1169 


005730 


012667 


173136 






MOV 


(SP)+,TRCPSW 


ISAVE MOD'S PSW. 


ino 


005734 


000401 








BR 


EXITl, 
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1171 








1172 








1173 


005736 


022626 




1174 


005740 


010046 




117S 


0057*2 


016700 


173170 


1176 


005746 


062700 


000032 


1177 


005752 


012620 




1178 


Q0S754 


010120 




1179 


005756 


010230 




1180 


005760 


010320 




1181 


005762 


010420 




1182 


005764 


010520 




1183 


005766 


010610 




1184 


005770 


016706 


173156 


118S 


005774 


005046 




1186 


005776 


012746 


006004 


1187 


OO6002 


000002 




1188 


006004 


000167 


174204 



(EXIT CALL ENTERS HERE. 



EXIT.I 


CMP 


{SP)t,tSP)+ 


EXITl. 


! MOV 


RO,-(SP) 




MOV 


MODADR,RO 




ADD 


ISVROiRO 




MOV 


(SPl+fCRO)* 




MOV 


R1,CR0)+ 




MOV 


R2,(R0)+ 




MOV 


R3,(R0)'t' 




MOV 


R4,(R0)+ 




MOV 


R5,<R0J+ 




MOV 


R6,(R0) 




MOV 


SPSAV,R6 


EXIT2. 


i CLR 


-tSP) 




MOV 


«1»»-«SP5 




RTI 




lit 


JMP 


QUETST 



SEQ 0041 



ISAVE RO IN STACK, 
» MODULE ADDR TO RO. 
jPOINT TO MOD'S REG SAVE AREA, 
JSAVE RO, (FROM STACK), 

iSAVE REMAINING REGS, 



ISAVE MODULE STACK POINTER, 
JRESTOPE MONITOR STACK. 
(CLEAR PSW ON STACK 
;SET UP RETURN PC 
jCLEAP PSW AND CONTINUE 
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006010 


004767 


000242 




006014 


016700 


173116 




006020 


010046 






006022 


004767 


000230 




006026 


016046 


000060 




006032 


004767 


000220 




0n6036 


016046 


0O00S6 




006042 


004767 


000210 




006046 


005726 




1200 


006050 


016706 


173076 


1201 


006054 


000747 
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»IYP04. ROUTINE. LOADS MSGDS INFOPMATION INTO TYPEQ 

J QUEUE PC+2 OF CALL 

;LOAD MODULE ADDRESS IN BO 

!ANn SAVE IN QUEUE 

» QUEUE DATA EBROB CniU.'T 

jOUFUE SIZE OF TRANSFER 

(REMOVE PS FROM STACK 
jGET MONITOB STSCK BOTNTER 
JEXIT 



TYPQ4,| JSR 


PCLDTYPO 


MOV 


MODADRjRO 


MOV 


RO,-CSP) 


JSR 


PCLDTYPO 


MOV 


AWASCRO),-(SP) 


JSR 


PCLDTYPQ 


MOV 


ASBCRO),-tSP) 


JSR 


PCLDTYPO 


POPSP 




MOV 


SPSAV,Ri( 


BR 


EXIT2, 
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SEQ 0043 





















906096 


011646 






006060 


004767 


000173 




906064 


016700 


173046 




§06070 


010046 






906073 


004767 


000160 




006076 


017616 


000000 




906103 


004767 


000150 




006106 


00S736 






006110 


963700 


000063 




906114 


018701 


000005 




006130 


000401 






006123 


005010 






906134 


014046 






006136 


004767 


000134 




006133 


005301 






006134 


001373 






006136 


016700 


172774 




006143 


010660 


000046 




006146 


016706 


173000 




006152 


000167 


177616 



ITYPQS. ROUTINE QUEUES INFORMATION FOR DERRX CALLS 



I QUEUE PC*i or CALL 

(LOAD MODULE ADDRESS IN RO 

jAND SAVE IN QUEUE 



IXP03. 


1 MOV 


CSP)»-{SP3 




JSR 


PC.LDTYPQ 




MOV 


MODADR>R0 




MOV 


RO,-£SP) 




JSR 


PC.LDTYPQ 




MOV 


ICSP)i(SP) 




JSR 


PCLDTYPQ 




pbpsp 






ADD 


#AHAS+3rR0 




MOV 


tS.Rl 




BR 


31 


i«l 


CLR 


(Ro; 


211 


MOV 


•(R0),-C8P) 




JSR 


PCLDTVPO 




DEC 


Rl 




BNE 


11 




MOV 


MQDADR,RO 




MOV 


R6.SVR6(R0) 




MOV 


SP8AV1R6 




JMP 


EXIT2. 



(QUEUE VIRTUAL ADDRESS OF CHECKDATA CALL 



(GET ADDRESS OF INFORMATION 



(CLEAR DATA (EXCEPT LAST) 
I GET DATA 
! QUEUE DATA 
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SEQ Q044 



1224 








1225 








1226 


006156 


011646 




1227 


606I6O 


004767 


000072 


1228 


006164 


010046 




1229 


006166 


017600 


000002 


1230 


006172 


062700 


OOOOSO 


1231 


006176 


012746 


000005 


1212 


006202 


012046 




1233 


006204 


000402 




1234 


006206 


011046 




1235 


006210 


005020 




1236 


006212 


004767 


000040 


1237 


006216 


005316 




1238 


006220 


001372 




1239 


006222 


005726 




1240 


006224 


01260Q 




1241 


006226 


000167 


J77S04 



lTypQ2. ROUTINE SERVICES ERROR, DATA ERROR, AND EPRN CALLS, 



TyPQ2,l 


MOV 


(SP),-CSP) 


ISAVE PC+2 OF CALL AGAIN 




JSR 


PC.LDTYPQ 


(QUEUE UP PC+2 OF CALL. 




MOV 


RO,-£SP) 


(SAVE RO. 




MOV 


92CSP),R0 


(GET MODULE ADDR. 


TYPQXl 


ADD 


ICSRA.RO 


( 




MOV 


1I5,-£SP) 






MOV 


CR0)+,-CSP5 






BR 


2$ 




Itl 


MOV 


(R0),-CSP) 






CLR 


(R0) + 




211 


JSR 


PC.LDTYPQ 






DEC 


(SP) 






SHE 


it 






papsp 








HOV 


CSP)+,R0 


(RESTORE RO. 




JMP 


EXIT. 





OAIM Die/Xtl ITANDARD MONITOR MKCyil 91(1001) tl-AM-T? OOillt PftOE 41 

eXQMM.Pti 3t*kPII-Tt 13l41 SEO 004S 

1348 iTyPQ. ROUTINE, SBPVICEB END, BNOPAS, KND MSGN CAlLl. 

1344 901313 004117 000090 TYPO, I J8R PC.LDTTPO tOUEUE UP CAll, 

1348 P04316 008734 POPaP 

1346 006340 000167 177474 JHP BXITl , 
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OXOABH.Pll Jl-APR-77 13l42 Sgg ,046 

, SERVICES HSG CALL. 

PC.LOTYPQ lOUKUE UP CALI;. 

EXIT2. 



1247 








iTYPQl. 


POUTl 


1348 












1249 


006244 


004767 


000006 


TYPQt.i 


JSR 


12S0 


006290 


005726 






POPSP 


12S1 


n063S2 


000167 


177516 




JHP 
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12S2 
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SEO 0047 





006260 


012746 


006266 






MOV 


»3»,-CSP) jSETUP RETURN PC 




006264 


000002 








RTI 


iCIiEAR PSU AND CONTINUE 




006266 


105767 


172515 




3tl 


TSTB 


TYPQUE jREQUEST COUNT OT 




006272 


001414 








BEQ 


11 »BR IF YES. 




006274 


026767 


172600 


172600 




CMP 


TYPQ1,TYP02 iNO, TYPQl AND TYPQ2 SAME? 




006302 


001010 








BNE 


1« JBR ir NOT. 




006304 


012767 


030072 


172566 




MOV 


»TYPEO,TYP01 I RESET THE TYPE QUEUE 




006312 


104406 


022774 






MSGti 


iQOYRrL lYES. QUEUE OFtO, CRASH SYSTEM 




006316 


104406 


023746 






MSSt, 


HLT I'HALT' 




006322 


000000 








HAIiT 






006324 


026727 


172550 


031232 


1*1 


CMP 


TYPQl, iTYPtlM (REACHED HIGH LIMIT? 




006332 


001003 








SNE 


21 jBR IF NOT. 




006334 


012767 


030072 


172536 




MOV 


tTYPEO, TYPQl T RESET TYPQl. 




006342 


016677 


000002 


172530 


2*1 


MOV 


2CSP).»TYPQ1 » STORE ARGUMENT IN QUEUE 




006390 


105267 


172433 






INCB 


TYPQUE J UPDATE REQUEST COUNTS, 




006354 


062767 


000002 


172516 




ADD 


#2, TYPQl f UPDATE TYPQl. 




006362 


012616 








MOV 


(SP)+,(SP) t 




006364 


000207 








RT5 


PC JEXIT. 
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SEO 004S 



1272 










(ROUTH 


It TO I 


jOAO BREAKS CALL 




1273 


















1274 


006366 


112766 


177777 


000003 


LDBRK.i 


1 MOVB 


«-l,3CSP) 


» INDICATE BREAKS CALL 


1275 


00S374 


000402 








BP 


LDIOQ 




1276 


















1277 










iROUTINE TO LOAD QUES CALL. 




1278 


















1279 


00«376 


005066 


000002 




QUE.i 


CLP 


2(SP) 


•INDICATE QUE CALL. 


1290 


















1281 










iLDIOQ 


ROUTINE. MUST NOT DROP 


BELOW LEVEL OF INTERRUPTING D1 


1282 


















1283 


006402 


012746 


000340 




LDioai 


HOV 


#PRTy7,-£SP) 


(PUT NEW PSW ON STACK 


1284 


006406 


012746 


006414 






MOV 


<1$,-(SP} 


1 SETUP RETURN PC 


ISB'S 


0064 1 2 


ft 000 CI 








STI 




jtOAD VeW PSV A??D CONTINUE 


1286 


00841* 


0D6403 






ISi 


SB 


. + iO 




1287 


006416 


112766 


000001 


000002 


PIRQ.t 


MOVB 


ll,2(SP) 




1288 


006424 


105767 


172356 






TSTB 


lOQUE 


, REQUEST COUNT OT 


1289 


006430 


001414 








BEO 


1( 


IBR IF YES. 


1290 


006432 


026767 


172436 


172436 




CMP 


10(31,1002 


jIOQl AND 1002 SAME? 


12^1 


OB8440 


notoie 








SWE 


1« 


!«B IF NOT, 


1292 


006442 


012767 


027252 


172424 




MOV 


«IOQ,I00l 


(RESET loot 


1293 


006450 


104406 


022774 






MSGti 


lOOVBFl J QUE 


OFLO, CRASH SYSTEM 


1294 


006454 


104406 


023746 






MSGti 


iHLT J'HALT' 


1295 


006460 


000000 








HALT 






1296 


006462 


026727 


172406 


030072 


111 


CMP 


lOOl.ilOOLIM 


(PEACHED HIGH LIMIT? 


1297 


006470 


001003 


- 






BNE' 


2* 


(BR IF NOT. 


1298 


006472 


012767 


027252 


172374 




MOV 


•100,1001 


(RESET lOQl, 


1299 


006500 


012677 


172370 




2*1 


HOV 


{8P)+, 91001 


(STORE PC-«'2 OF PENDING CALL 


1300 


006504 


105267 


172276 






INCB 


lOQUE 


(UPDATE REQUEST COUNTS, 


13(11 


006510 


062767 


000002 


172356 




ADD 


f2.I0Ql 


(UPDATE lOQl. 


1302 


006516 


005716 








TST 


(8P) 


(QUE CALL? 


1303 


006520 


001003 








BNE 


31 


(NO- BRANCH 


1304 


006522 


005726 








TST 


C5P) + 


(YES, POP STACK 


1305 


006524 


000167 


177244 






JMp 


EXIT2, 


(EXIT 


1306 


006530 


126627 


000001 


177777 


3li 


CHPB 


1(SP},«-1 


(BREAK CALL? 


1307 


006536 


001003 








RKE 


4« 


(NO- BRANCH 


1308 


006540 


005726 








TST 


(SP) + 


(YES- POP STACK 


13n9 


006542 


000167 


177172 






JMP 


EXITl. 




1310 


006546 


005726 






411 


TST 


(SP) + 


(PIRO- EXIT VIA RTI 


1311 


006550 


000002 








RTI 
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SEQ 0049 













iKEyBOA 


RO INTERRUPT SERVICE 




























O06552 


005077 


172404 




KBSRVCl 


CLR 


?TKS 


JCLEAR INTERRUPT ENABLE. 






006S56 


017746 


173402 






MOV 


9T!tB,-CSP) 


>GET CHAR. 






006S62 


042716 


000200 






BIC 


#200. tSP) 


IREMOVE EXTRA BITS. 






006566 


122716 


000003 






CMPB 


»3,(SP) 


tIS IT CTRL C? 






006572 


001524 








BEQ 


CTRLCA 


»BR IF YES. 






006574 


008726 








POPSP 




(REMOVE CHAR FROM STACK. 






006576 


000004 


006604 


000000 




PXRQ«, 


1«»0 


>Q DEVICE SERVICE. 


































»KEYBOARO SERVICE. 




























006604 


026727 


172226 


026752 


Itl 


CWP 


KBPTR,«KBUr+KBUEL iBUFFEB EXCEEnED? 






006612 


001511 








BEQ 


12$ 


IBR IF YES, 






006614 


017746 


172344 






MOV 


»TKB,-tSP) 


»GET CHAR. 






006620 


042716 


000200 






BIC 


«200»(SP) 


jCLEAB PARITY BIT. 






006624 


131627 


000177 






CMPB 


tSP),«177 


jRUBOUTT 






006630 


001443 








BEQ 


58 


JBR IF YES. 






006632 


121627 


000040 






CMPB 


CSP),#40 


(SPACE? (IGNORE LEADING ONES). 






006636 


001460 








BEQ 


68 


jBR IF YES. 






006640 


121627 


000015 






CMPB 


(SP).«15 


jCR? (TIME TO QUIT?), 






006644 


001462 








BEQ 


98 


)BB IF YES. 






006646 


121627 


000012 






CMPB 


(SP),«12 


jLF? (TREAT LIKE CR), 






006652 


001457 








BEQ 


98 


iBR IF YES. 






006654 


131637 


000060 






CMPB 


(SP)>»60 


jCHAR LESS THAN 607 






006660 


103435 








BIO 


108 


iBR IF YES. IGNORE IT. 






006662 


121627 


000141 






CMPB 


t5P),#141 


jCKAR LESS THAN LOWITR CASE A? 






006666 


103405 








BLO 


28 


jBR IF YES. 






006670 


121627 


000172 






CMPB 


CSP5,«173 


(CHAR HIGHER THAN LOWER CASE Z? 






006674 


101017 








BHI 


108 


»BH IF YES. 






006676 


162716 


000040 






SUB 


«4n,(SP} 


jLOWEP CASE CHAP, MAKE IT UPPER 


CASE 




006702 


111677 


172130 




211 


MOVB 


CSP).BKBPTR 


J STORE CHAR. 






006706 


005267 


172124 






INC 


KBPTR 


(UPDATE BUFFEP POINTER. 






006712 


112667 


172342 




3*1 


MOVB 


(SP5+.TTYBYT 


(CHAR TO ECHO BUFFER. 






006716 


104406 


001260 






M5G»,TTYBYT 


(ECHO THE CHARACTER, 






006722 


052777 


000100 


172232 


4tl 


BIS 


»IE,(>TKS 


(REPNABLE KYBD INTERRUPTS. 






006730 


000167 


173260 






JHP 


QUETST 








006734 


005726 






1081 


POPSP 










006736 


000771 








BR 


48 




































iSERVICE DELETE/RUBOUT CODE, 




























006740 


022767 


026712 


172070 


Sll 


CMP 


iKBUF, KBPTR 


(BUFFER EMPTY? 






006746 


001405 








BEQ 


68 


(BR IF YES. 






006750 


005367 


172062 






DEC 


KBPTR 


(POINT TO PREVIOUS CHAR, 






006754 


117716 


172056 






MOVB 


•KBPTR, CSP3 


(GET PREVIOUS CHAP, 






006760 


000754 








BP 


38 


(GO ECHO IT, 






006762 


005726 






611 


POPSP 










006764 


104406 


022772 






MSG»,ACRLF 


(OUTPUT CRLF. 






006770 


012767 


026712 


172040 


7tl 


MOV 


♦KBUF, KBPTR 


•RESET KBUF POI'ITEP. 






006776 


000751 








BP 


48 




































iSERVICE SPACE 


, 


























1366 


007000 


022767 


026712 


172030 


BSl 


CMP 


♦KBUF, KBPTR 


(LEADING SPACE? 




1367 


007006 


001741 








BEQ 


38 


(BR IF YES (IfiNOPE TT) , 
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1368 


007010 


000734 








BR 28 


1369 














1370 










(SERVICE CR AND LF. 


1371 














1372 


007012 


U2677 


172020 




981 


MnVB (SP3 + ,»KBPT1 


1373 


007016 


012767 


026712 


172012 




MOV iKBUF, KBPTR 


1374 


007024 


104406 


022772 






MSG$,ACRLF 


1375 


007030 


104401 


010512 


000000 




QUE8, DECODE, 


1376 














1377 










(SERVICE KBUF OVERFLOW, 


1378 














1379 


007036 


104406 


023505 




12$| 


HSG8,KB0FL0 


1380 


O07042 


000752 








BR 78 



(STORE CHAR. 

(POINT TO START OF KBUF, 

(OUTPUT CRLF 

(QUE TO SERVICE COMMAND, 



(TYPE KBUF DFLO. 
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13Si 
1382 
13i3 
1384 
1385 
1386 
1387 
1388 
1389 
1390 
1391 
1392 
1393 
1394 
1395 
1396 
ISi*? 
1398 
1399 
1400 
1401 
1402 
1403 
1404 



1406 
1407 
1408 
1409 
1410 
141! 
1412 



007044 
007050 
007054 
007060 
007o64 
007072 
007100 
007104 
007106 
007112 
007116 
007122 

007124 
007132 
007136 
00*142 
007144 

A ^ 7 1 C A 

007154 
007160 
007164 
007170 
007174 
007200 



012706 
004767 
005067 
004767 
016767 
016767 
105767 
001002 
000167 
105067 
105767 
100426 

052777 
104406 
105767 
OOi 406 
004767 

104406 
104406 
004767 
004767 
004767 
090567 



027212 
000130 
172164 
012410 
012054 
012050 
172205 

001544 
172173 

5''-'70 



OOOIOO 
022753 
172211 



026066 
022742 
003144 
007744 
010024 
006700 
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(SERVICE CTRL C, ENDS RUN MODE ALSO, 

jDROPS TO BANKS AND 1 BEFORE RETURNING CIF KTU IN USE) 

iNEEOED INFORMATION PRIOR TO REMAPPING TO 0, OR CAUSE REMAPPING TO 
I CURRENT AREA AFTER 



8EQ 0051 



172074 
172070 



172030 



CTRLCAJ MOV 
CTRLCBt JSR 
CLR 
JSP 
MOV 
MOV 
TSTB 
BNE 
JHP 
lit CLRB 
TSTB 
BMI 



#SPBOT,SP 

PCCTBLX 

OFFSTD 

PCMVCODE 

LPMKlfTPS 

LPWK2fTPB 

RMODE 

i« 

C0MC03 

RMODE 

CHN 

CTPICD 



BIS *IE>8TKS 

MSGliSUMARY 

TSTR CLOCK 

8ES 28 

JSR PC.RUNTYH 

MSGir AAT 

HSG«,TOTIM 

211 MSGSrCR 

JSR PC.DIRA 
JSR PCSYSNUM 
JSR PC.PWRNUM 

CTRLCDs JMP CHHOUT 



tREINITIALIZE STACK POINTER 
(CLEAR OUEUESi TYPE "C 
(GET PROGRAM SACK TO BANK 

(RESTORE TTY 

(IN RUN MODET 

*BP- IF vgs 

(BACK TO KYBD ROUTINE, 

(CLEAR RUN MODE INDICATOR 

(IN CHAIN MODE? 

(BR IF YES, BYPASS SUMMARY AND RETURN TO 

(CHAIN MONITOR 

(REENABLE KEYBOARD INTERRUPTS 

(TYPE RUN END SUMMARY TITLE, 

(IS THERE A CLOCK AVAILABLE? 

jKO» CONTINUE 

(YES, SET UP RUNTIME INFORMATION 

(PRINT THE TOTAL TIME 

(CARRIAGE RETURN 

(TYPE RUN SUMMARY, 

(TYPE NUMBER OF SYSTEM ERRORS 

(TYPE NUMBER OF POWER FAILS 

(EXIT, OR RETURN TO KYBD RTN, 
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1413 
1414 
1415 
1416 
1417 
1419 
1419 
1420 
1421 
1422 
1423 
1424 
1425 
1426 
1427 
H?B 
1429 
1430 
1431 
1437 
14)11 
1434 
1435 
143fi 
1437 
143P 
1439 
1440 
1441 



007204 012746 

007210 017746 

007214 000002 

007216 012767 



007224 
007230 
007232 
007240 
007244 
007250 
007252 
007254 
007256 
00728 5 
0072f4 
007270 
007272 
007276 
007304 
007 312 
007114 
007320 
007322 
007326 
007330 
007334 

no''342 

007346 



105767 
001003 
012767 
004767 
005367 
001373 
011604 
000005 
010416 
054767 
105767 
001405 
004767 
012737 
132767 
nnj »no 
004767 
005046 
012746 
000002 
105267 
016767 
104406 
000207 



000340 
007216 

000144 

172061 

000010 
005522 
172244 



005! 2 
172014 

002516 
000001 

000001 

002712 

007330 

17145r 
171760 

022770 



CTRLX( 



172270 4tt 



177572 
172026 2»( 



MOV 
MOV 
RTI 
MOV 

TSTB 

BNE 
MOV 
JSR 
DEC 
BNE 
HOV 
RESET 

Mnv 

JSP 

TSTB 

BEO 

JSR 

MOV 

BITS 

JSR 

CLR 

MOV 

RTI 

INCB 

MOV 



iPRTy7,-(SP) 
•48f-(SP) 

«100.,CSTART 

RMODE 

It 

llOfCSTART 

PCCLROUS 

CSTART 

IS 

CSP),P4 

R4,CSP) 

PC.CLSQUS 

KTPRES 

2$ 

PC,KTINIT 

»l,aiSSPO 

»BITO.PPRES 

PC.PAENBL 

-CSP) 

I5J.-CSP) 



vSGSiCTPLC 
RTS 



BPAKE 
RDTNUM.HOTCNT 



(SETUP NEW PS* ON STACK 

(PUT RETURN PC ON STACK 

(LOAD NEW PSM AND CONTINUE 

(CLEAR QOeUFS AND DELAY TOO. 

(IF NOT IN RHODE, SHORTEN WAIT 



(CLEAR QUEUES. 

(DONE? 

(PR IF NOT. 

(SAVE RETURN PC 

(RESTORE RETURN PC IN CURRENT BANK 
(CLEAR aUEUES I*' HICK 



(PARITY PRESENT 7 
;Nu< CONTINUE 
(YES, GO TURN ON PARITY 
(RETYPE NEW PSW ON STACK 
(PUT RETURN PC ON STACK 
(LOAD NEW PSW AMD CONTIMUE 

(SET BRAKE TO PREVENT BACKGROUND MODULE FROM BEING START 
(RESET THE POTATION COUNTER 
(OUTPUT 'C 
(EXIT, 
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1442 
1443 
1444 
1445 
1446 
1447 
1448 
1449 
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iSOBROUTINE TO TYPE MULTIPLE ASCII STRINGS. 
I VALUE or R5 IS NOT SAVED, 



SGQ 00S3 



NOTE THAT THE PREVIOUS 



007350 005726 

0073S2 013546 

007354 001403 

007358 004767 

007362 000773 

1450 007364 000205 



TVPENi TST {SP)+ I REMOVE OLD P5 FROM STACK 

TYPEll MOV (5)+»-tSP) fCET ASCII ADDRESS. 

BEO II |BR ir TERMINATOR, 

JSR PC, TYPE I TYPE IT. 

BR TYPE! ,GET MORE, 

l«i RTS R5 J RETURN, 
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SEQ 0054 



1451 








1453 








1453 








1454 








1455 








1456 


007366 


012767 


007436 


1457 


007374 


012667 


171506 


1456 


007400 


012667 


171500 


1459 


007404 


010167 


171530 


1460 


007*10 


012701 


001142 


1461 


007414 


010331 




1462 


007416 


010321 




1463 


007430 


010431 




1464 


007423 


010521 




1465 


007434 


012777 


000100 


1466 








1467 








146S 








1469 








1470 








1471 








1473 








1473 








1474 








1475 








1476 








1477 








1478 








1479 








1480 








1481 








1482 








1483 








1484 








1485 








1486 


007433 


000167 


173556 


1487 


007436 


117746 


171442 


1488 


007443 


001015 




1489 


007444 


005736 




1490 


007446 


013701 


001142 


1491 


007452 


013103 




1493 


007454 


013103 




1493 


007456 


013104 




1494 


007460 


013105 




1495 


007463 


016701 


171452 


1496 


007466 


005077 


171474 


1497 


007473 


000177 


171410 


1498 








1499 








1500 


007476 


062767 


000001 


1501 


007504 


122716 


000045 


1503 


007510 


001037 




1503 


007513 


112716 


000015 


1504 


007516 


012767 


007526 


1505 


007S24 


000431 




1506 


007526 


112746 


000013 



(TYPE SUBROUTINE, 

iTYPES ASCIZ STRINC 

I NOTE THAT IF RHODE IS SET BUT MOOOLES AREN'T YET BPING STARTED, BRAKE 

I MUST BE SET TO PREVENT STARTNG MODULES WHILE TYPING 



173134 TYPEI 



171534 



MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 



171400 



tTTSRVl.TIYLNK 

(SP)+,TYPRET 

(SP)*,TYPADR 

Rl.TYPRl 

»TYPR2,Rl 

B2,(Rn + 

R3,(R1H 

R4,CR1)+ 

R5,(Rn + 

»lor>,(iTPS 





JMP 


OUETST 


TTSRVli 


MOVB 


»TYPADR,«( 




BNE 


TYPEB 




TST 


(SP) + 




MOV 


iTYPR2,Bl 




MOV 


(R1)+,R2 




MOV 


(Rl)+,R3 




MOV 


CR1)4',R4 




MOV 


{Rl)*.R5 




MOV 


TYPBl.Rl 




CLR 


8TPS 




JMP 


•TYPRET 


TYPES 1 


ADD 


il.TYPADB 




CMPB 


»45.(SP) 




BNE 


TYPEL 


lYPECl 


MOVB 


ilSrtSP) 




MOV 


lil>TTYLNK 




BR 


lYPEL 


Hi 


MOVB 


»12.-(8P) 



J SAVE RETURN ADDRESS 
I SAVE MESSAGE ADDRESS 
JSAVE REGISTERS 1-5 



iGET CHAR. 

»BB IF NOT TERMINATOR, 

I RESTORE REGISTERS 1-5 



lis IT tT 

|N0- BRANCH 

, OUTPUT CR, 



rOUTPUT IF, 
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SEO OOSS 



1507 
















1!S9 
















1509 
1510 


007532 


012767 


007542 


171770 




MOV 


»2»fTTn,NK 


1511 


007540 


000423 








BR 


TYPEIi 


1512 


007542 


116767 


171540 


171250 


2*1 


HOVB 


FILCNT.FILCTR 


1513 


007550 


001002 








BNG 


TYPEE 


1514 


007552 


105267 


171242 






INCB 


riLCTR 


1515 


007556 


116746 


171S2S 




fVPEEi 


MOVB 


FILLER, -(S?3 


1516 


007562 


012767 


007572 


171740 


TYPED i 


MOV 


»3».TIYLNK 


1517 


007570 


000407 








BR 


TYPEL 


1519 


007572 


105367 


171222 




3ti 


DECB 


FILCTB 


1519 


007576 


001367 








SHE 


TYPEE 


1520 


007600 


012767 


007436 


171722 




MOV 


#TTSRV1,TTYINK 


1521 


007606 


000713 








BR 


TTSPVl 


1592 


007610 


012677 


171354 




TYPELl 


MCV 


CSP)+,9TPB 


1523 


007614 


012767 


oioooo 


171266 




MOV 


110000. TYPCTR 


152* 


007622 


000167 


172366 






JHP 


OUETST 



jGET TILL COUNTt 
jBR IF NOT 0. 
iOOPS, MAKE IT A 
I OUTPUT FILLER. 



(DECREMENT FILL COUNTER, 
{BR IF NOT 0. 
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1525 
1S26 
1'527 
1529 
1529 
1530 
1531 
1532 
1533 
1534 
1535 
15 36 
1537 

i«»a 

1519 
1540 
1541 
1S42 
1543 
1544 
1545 
1546 
1547 
1549 
1549 
1550 
1551 
1552 
1553 
1554 
1555 
1556 
1557 
1558 
1559 
1560 
1561 
1562 
1563 
1564 
1565 
1566 
1567 
1569 
1569 
1570 
5571 
1572 
1573 
1574 
1575 
1576 
1577 
1579 
1579 
1580 



IROUIINE TO SERVICE CKDATA CALL (CDATAI) 



007626 
007614 
007636 

007642 
007646 
007652 
007656 
007662 
00'»fi66 
007674 
0«7«T* 
007700 
007704 
007710 
007712 
007714 
007716 
007720 
007722 
007724 
007726 
007732 
007734 
007740 
007742 
007746 
007754 
007756 
007762 
007764 
007766 
007770 
007772 
007774 
007776 
010004 
010006 
010010 
010016 
010020 
010022 
010026 
010032 
010036 
010042 
010044 
010050 
010052 
010056 
010060 
010066 
010074 
010102 



112767 
000402 
105067 

005067 
005067 
004467 
016604 
010467 
162767 
012401 

<)»a4os 

010361 
062701 
012621 
012621 
012621 
012621 
012621 
010511 
022626 
016401 
012300 
012167 
012305 
016102 
016167 
005003 
005767 
00142! 
012603 
005203 
006303 
050300 
103003 
062767 
060302 
103003 
062767 
006203 
160305 
012667 
010067 
010267 
00456" 
001114 
004567 
001122 
105767 
001443 
012767 
012767 
012767 
012767 



177777 171513 

171505 

171310 
171256 
005062 
000012 
171632 
000002 



000052 
000032 



171624 



177774 
171164" 



000074 

000076 171142 



000020 171120 



000020 niioo 



171102 
171070 
171056 
004S60 

004552 



077406 167S12 
077406 167506 



077406 
077406 



167502 
167506 



DATCK.t MOVB 

BR 
CDATA.t CLPB 

CKCONTI CLR 
CLR 
JSR 
MOV 

CDATAI i MOV 
SUB 
MOV 
MOV 
MOV 
ADD 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
CMP 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
CLR 
T5T 
BEO 
MOV 
INC 
ASL 
ADD 
BCC 
ADD 
ADD 
BCC 
ADD 
ASR 
SUB 
MOV 

30H MOV 
MOV 

HODWPA 

JSR 

MODRPA 

TSTB 

BEQ 

MOV 

MOV 

MOV 

MOV 



t-l,nATFLG 

CKCONT 

DATFLG 

CDFLG 

DEBPCT 

P4,SAV04 

12CSP),R4 

R4,CDERR1 

t2,CDERRl 

(R4)+.R1 

(»♦)+, R3 

R3,SBADP(Rn 

tSVROiRl 

tSP) + ,{Rn + 

(sp)+#cRn + 
(sp)+.(Rn + 
csp)+,cRn+ 
(sp)+,cBn+ 

R5,(R1) 

CSP)+,(SP)+ 

-4(R4),R1 

(33+. RO 

(3)+.H0DREA 

(1)+.R5 

WBUFPA(R1).B2 

WBUFEACRn.^'OD 

R3 

CDFLG 

30J 

(SP)+,R3 

R3 

R3 

B3,R0 

. + 10 

I 20, MOORE A 

R3,R2 

.♦10 

t20,M0DHEA 

H3 

R3,R5 

(SP)*,DCRRCT 

RO, MODRPA 

R2,M0DHPA 

R5,T0P12S 

R5,TQP12S 

KTPRES 
It 

(77406, UIPDRO 
#77406, UIPDRl 
#77406, UtP0R2 
#77406, UIPDR7 



;SET FLAG FDR DATACK CALL 

{CONTINUE 

jSET FLAG FOR CfDATA CALL 



(INITIALIZE DATA ERROR COUNT 
{TEMPORARILY SAVE RFGS 
(GET PC+2 OF CALL 
(SETUP PC OF CALL 

{GET BEGIN ADDRESS OF MODULE 

fGET TABLE A00RB9S OF RBUFPA FROM MODULE 

{SAVE IT 

(SAVE MODULE'S REGISTERS 



{RESTORE MODULE ADDB 
{GET READ BUFFER PA 
{GET EA BITS ALSO 
{BUFFER WORD COUWT 
{GET WRITE BUFFER PA 
WEA (AND GET EA BITS 
(CLEAR OUT REG. 3 
(ENTERED FROM DATA ERROR RETURN? 
{MO- BRANCH 
(YES- GET COUNT 

Y CREATE OFFSET 

(GET ADDRESS OF CURRENT READ BUFFER WORD 



(GET ADDRESS OF CURRENT MRITE BUFFER HORO 



(RESTORE COUNT 
{CALCULATE WORDS LEFT 
(RESTORE DATA ERROR COUNT 



{GET 12 BIT HRITE BUFFER ADDRESS 



(GET 12 BIT READ BUFFER PA 

(USE KTU? 

{N0> BRANCH 

(MAP USER R/W 



• ~dM DKCXlt STANDABt! MONIIOp MACYll 
DXOABM.PII J). APR. 77 1314? 



tiKiQ<'t) 3]o*PR>7T OOtn PASe S5 



SFS COST 



tssi 


OlOUO 


016767 


162224 


167522 


issa 


010116 


016767 


170776 


1675J6 


1583 


010124 


016767 


170776 


167512 


1S84 


010132 


012767 


007600 


167516 


tS8S 


010140 


042700 


177700 




1586 


010144 


052700 


040000 




1587 


010150 


042702 


177700 




1588 


010154 


052702 


020000 




1589 


010160 


052767 


140000 


167610 


1590 


010166 


021012 






1591 


010170 


001436 






1592 


010172 


005267 


170732 




1593 


010176 


026727 


170726 


000003 


1594 


010204 


003404 






159! 


O1O2O6 


032777 


002000 


170762 


1596 


010214 


001424 






1597 


010216 


011067 


170672 




1598 


010222 


011267 


170670 




1599 


010226 


104423 






1600 


010230 


016761 


170662 


000056 


1601 


010236 


016761 


170652 


000060 


1602 


010244 


010361 


000054 




1603 


010250 


016746 


170654 




1604 


010254 


010346 






1605 


010256 


016746 


171236 




1606 


010262 


000167 


171230 




1607 


010266 


005203 






1608 


010270 


005720 






1609 


010272 


005722 






1610 


010274 


105767 


171004 




1611 


010300 


001420 






1612 


010302 


032700 


017777 




1613 


010306 


001005 






1614 


010310 


162700 


020000 




1615 


010314 


062767 


000200 


167322 


1616 


010322 


039702 


017777 




1617 


010326 


001005 






1618 


010330 


162702 


020000 




1619 


010334 


062767 


000200 


167300 


1620 


010342 


005305 






1621 


010344 


001310 






1622 


010346 


104423 






1623 


010350 


005767 


170554 




1624 


010354 


001003 






1625 


010356 


012467 


170472 




1626 


010362 


000423 






1627 


010364 


005261 


000030 




1628 










1629 


010370 


001002 






1630 


010372 


005161 


000030 




1631 


010376 


016761 


170526 


000060 


1632 


010404 


010361 


000056 




1633 


010410 


010446 






1634 


010412 


010661 


000046 




1635 


010416 


104432 






1636 


010420 


012604 







281 



MOV 

MOV 

MOV 

MOV 

BIC 

BIS 

BIC 

BIS 

BIS 

CMP 

BCQ 

INC 

CMP 

BLE 

BIT 

BEQ 

MOV 

MOV 

RTTKI 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

JMp 

INC 

TST 

T5T 

TSTB 

BEO 

BIT 

BNE 

SUR 

ADD 

BIT 

BNE 

SUB 

ADD 

DEC 

BNE 

BTIKI 

TST 

BNE 

MOV 

BP 

INC 

BNE 

COM 

MOV 

MOV 

MOV 

MOV 

M5GDI 

MOV 



KIPARO.UIPARO 

M0DW12,UIPAB1 

MaDP12,UIPAR2 

»7600,UIPAR7 

#177700. RO 

*40000iRO 

•177700. R2 

•20000. B2 

•UMODE.PSW 

9PO.0R2 

3« 

DERPCT 

DEBRCT.#3 

21 

•BITIO.SSR 

31 

9R0.M0DWPA 

?R2,M0DWEA 

MOPWEA.ASBCRI) 

MODWPA.AWASCRn 

RS.MASADRCRn 

DERRCT.-tSP) 

R3,-tSP) 

CDEPR1,-(SP) 

CDERB 

R3 

CROU 

CR2) + 

KTPRES 

5t 

#17777, RO 

4a 

#20000. PO 
#200iUIPAR2 
#17777, P2 

Si 

#20000, R2 

«200,UIPAB1 

P5 

IS 

DERRCT 

68 

CR4)+,DSTADR 

7« 

EPCNT(Pt) 

.+6 

ERCNTCRl) 

DERRCT, AWASCPl) 

R3,ASB(P1) 

R4,-tSP) 

SP,SVR6CPn 

CSP)+,B4 



(EXECUTE IN PAGE 
(PAGE 1 IS WRITE PUrFER 
(PAGE 7 IS READ BUFFER 
J PAGE 7 IS EXTERNAL 
(SETUP READ BUFFER VA 

(SETUP WRITE BUFFER VA 

(CHANGE TO USER 
(DATA OK? 
(yES. BRANCH 
(NO, COUNT DATA ERROR 
(MORE THAN 3 ERRORS? 
(NO- BEPOBT ERROR 
(YES- REPORT ALL? 
(N0« BRANCH 
(TEMPORARILY SAVE DATA 

(RETURN TO KERNEL 

(SAVE EXPECTED 

(SAVE ACTUAL 

(SAVE COUNT 

(SAVE DATA ERROR COUNT 

(SAVE WORD COItNT ON STACK 

(SAVE VA OF CKDATA CALL 

(GO TO ERROR CALL 

(COUNT WORDS CHECKEP 



(REMAP IF NEEDED 



(RETURN TO KERNEL 

(ANY DATA ERRORS? 

(YES, BRANCH 

(GET THE PETURN ADDRESS 

I GO TO COMMON RETURN CODE 

(DATA ERRORS QCCURRFD" UP MODULE ERROR 

(COUNT BY 1 

(SET TO -1 IF 

(STORE INFORMATION TN MODULE 

(STORE SIZE IN ASB 

(SAVE POIMTER TO EBoOR PETUPN ADDRESS 

(SAVE STACK POINTER 

(REPORT THTALS, HALT MODULE IF NEEDED 

(GET ERROR RETURN POINTER 
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1637 
1638 
1639 
1640 
1641 
1642 
1643 
1644 
1645 
1646 
1647 
1648 
1649 
1650 
1651 
1652 



010422 
010426 
010432 
010436 
010440 
010444 
010452 
010454 
010460 

010464 
010466 
010472 
010476 

010502 
010506 



016701 
012467 
105767 
100002 
016734 
116167 
010100 
062700 
000167 

005746 
004467 
016604 

062704 
005267 
000167 



170510 
170422 
170711 

170464 
000020 

000046 
172422 



004246 
000014 
000002 
170450 
177150 



170414 8»( 



CDRET( 



MOV 

MOV 

TSTB 

BPL 

MOV 

MOVB 

MOV 

ADD 

JMP 

TST 
JSR 
MOV 
ADD 
INC 
JMP 



MQnADR,Rl 

(P4)+,DSTADR 

DATFLG 

es 

DERRCT, 9(R4)* 

STATtRD.PSTAT 

Rl.PO 

»SVR6,R0 

lOQSVD 

-tSP) 

R4,SAV04 

14t5P),R4 

*2,R4 
CDFLG 
CDATAl 



SEQ 0058 



(GET MODULE START ADDRESS 

(GET THE RETURN ADDRESS 

(IS THIS A DATACK CALL 7 

[NO, CONTINUE 

(YES, LOAD THE NUMBER OF DATA ERRORS 

(SET UP FOR MODULE PETUBN 



(PUSH STAPK 

(GET VA QF CKDATA C»LL 
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1653 








!i94 








16SS 








16S6 


010512 


105767 


170272 


1657 


010516 


001404 




i6sa 


O10520 


005067 


170264 


1659 


010524 


000177 


170326 


1660 


010530 


105767 


170555 


1661 


010534 


001403 




1662 


010536 


104406 


023131 


1663 


010542 


000441 




1664 


010544 


004467 


004170 


1665 


010550 


016700 


170262 


1666 


010554 


012701 


025106 


166? 


010560 


010046 




1668 


010562 


122021 




1669 


010564 


001407 




1670 


010566 


105721 




1671 


010570 


001376 




1672 


010572 


111102 




1673 


010574 


001422 




1674 


010576 


06020! 




1675 


010600 


011600 




1676 


010602 


000767 




1677 


010604 


10S711 




1678 


010606 


001365 




1679 


010610 


122126 




16fl0 


010612 


11U02 




1691 


010614 


060201 




1682 


010616 


014167 


170670 


1683 


010622 


005067 


170666 


1684 


010626 


010067 


170204 


1685 


010632 


004767 


004114 


1686 


010636 


000)67 


170640 
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iCOMHAND DECODER. CHECKS SYNTAX AGAINST COMWAMD TABLE, 

■ALL COMMANDS ARE CHECKED AGAINST THE QUOTES, NO ABRREVIATIONS ALLOWED 

ISPECIAL FLAG SET? 

IBR IF NOT, 

lYES, CLEAR IT, 

|G0 VIA SRETRN, 

J IN RUN MODE? 

jNO, CONTINUE 

J 'INVALID CMD. ONLY CTL C IS OK' 

tCONTINUE 

(SAVE REGS 0-4, 

jPOINTER TO RO, 

{DEVICE DECODING COMES HERE 

JSAVE STRING POINTER 

jMATCK THE CHARACTER? 

SYEP, SEE IF THE REST MATCH 

;N0> GO CHECK AGAINST NEXT 

:BUT FIND WHERE NEXT ENTRY IS 

jDISPLACEMEKI TO NEXT ENTRY 

»N0 SUCH THING, 

jPOINT TO NEXT ENTRY 

, POINT TO BEGINNING OF INPUT 

»KEEP LOOKING 

JLAST CHP IN ENTRY? 

jNO, CHECK THE OTHER CHP'S 

{RESET SP AND Rl 

tGET DISPATCH ADDRESS 

jPl POINTS TO NEXT ENTRY 

;SET MODULE ADDR IN CSTART TO 0, 
jSAVE CURRENT BUFFER POINTER, 
J RESTORE REGS 0-4. 
»G0 TO COMMON QUE CALL, 



SEQ 0059 



DECODE! 


TSTB 


SPCFLG 




BEQ 


It 




CLR 


SPCFLG 




JMP 


aSRETRN 


Itt 


TSTB 


RMODE 




BEa 


2( 




MSGI, 


INVCDl 




BR 


COHCON 


2«i 


JSR 


R4,SAV04 




MOV 


KBPTR.RO 


GTOKJ 


MOV 


»C0MTAB,R1 


GTOKXi 


MOV 


RO,-tSP) 


GTOKlj 


CMPB 


(RO) + ,CPn + 




BEQ 


GT0K2 




TSTB 


tRn+ 




BNE 


.-2 




MOVB 


(Rn»R2 




PEQ 


COMCOl 


MORE! 


AOO 


R2.-R1 




MOV 


(SP).RO 




EP 


GTOKl 


GT0K2! 


TSTB 


CRD 




BNE 


GTOKl 




CMP8 


CRi)*,{SP)+ 




MOVB 


(pn.R2 




ADD 


R2,R1 




MOV 


-CRD.CADDR 




CLP 


CSTART 




MOV 


RO,KBPTR 




JSR 


PC,RST04 




JMP 


COMQUE 
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SEQ 0060 



(687 








1688 








1689 








1690 


010645 


104406 


023107 


16<»1 


010646 






1692 


010646 


005067 


170136 


16<93 








1694 


010652 


105067 


170446 


1695 


010656 


104406 


022737 


1696 


010662 


000167 


171274 



{COMMON RETURN FROM COMMAND EXECUTION A'SD RUN ROUTI'JE (INCLUDING 
{RELOCATION AND INTERNAL RESTART) 



COMCOl! MSGS.INVCMD 

CQMCONj 

C0HCD2I CLR SPCFLG 

CLRB FTLLID 
C0MC03I MSGS.DOT 
C0MCa4! JMP INPUT 



(TYPE INVALID COMMAND. 

{CLEAR SPECIAL FLAG AND 

{DIP COMMAND INDICATOR, 

{CLEAR FILL COMMAND INDICATOR, 

{TYPE DOT. 

(GO GET MORE INPUT. 



QABM DEC/Xtl STANDARD MONITOR 
DXQABH.PIJ 21.HPR-77 una 



1697 








169B 








1699 








1700 


010666 


012667 


170164 


1701 


010672 


105267 


170112 


1702 


010676 


000771 
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iSPEClAl, INPUT ROUTINE. 

fCALLED BY MODirV ROUTINE, WHEN MAITIHG FOP NEW VALUE TO BE INPUT. 



SGO 0061 



SINPUTJ MOV 


CSP)+,SRETRN 


(SAVE RETURN ADDR. 


INCB 


SPCFtO 


>SET SPECIAL FLAG. 


BR 


C0HC04 
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1703 










iRUN 


ROUTINE, 


, STARTS EXERCISER 


1704 










iNOTE 


THAT "RUN" IS ENTERED ON 


1705 










iTHE 


PROGRAM 


IS NOT IN BANK 0. 


1706 
















1707 


010700 


112767 


000001 


170421 


RUNLI 


MOVB 


il.LOCK 


1708 
















1709 


010706 


00040? 








BR 


.+6 


17)0 


010710 


105067 


170413 




RUN» 


CLRB 


LOCK 


1711 


010714 


005067 


170324 






CLR 


OFFSTD 


1712 


010720 


005067 


170340 






CLR 


5YSCNT 


1713 


010724 


005067 


170336 






CLR 


PWRCHT 


1714 


010730 


132767 


000001 


170415 


6*i 


BITB 


»BIT0, CLOCK 


1715 


010736 


001403 








BEO 


I( 


1716 


010740 


004777 


170420 






JSR 


PC,9ALCLR 


1717 


010744 


000406 








BR 


29 


1718 


010746 


132767 


000002 


170377 


t«l 


BITB 


IHITl. CLOCK 


1719 


010754 


001402 








BGO 


2« 


1720 


0107S6 


004777 


170404 






JSR 


PC.BAPCLR 


1721 


010762 


012767 


042761 


001540 


2*t 


MOV 


«42761,SLDSB 


1722 


010770 


012767 


042761 


001554 




MOV 


t42761«SLDSE 


1723 


010776 


004767 


002446 






JSR 


PCGETADR 


1724 


011002 


000436 








BR 


St 


1725 


011004 


016701 


170032 






MOV 


ADDRL0,R1 


1726 


011010 


016700 


170030 






MOV 


ADDRHI.RO 


1727 


011014 


006200 








ASR 


RO 


1728 


011016 


006001 








ROR 


PI 


1729 


011020 


006200 








ASR 


RO 


1730 


011022 


006001 








ROR 


R! 


1731 


011024 


000241 








CLC 




1732 


011026 


006001 








ROR 


Rl 


1733 


011030 


006201 








ASR 


Rl 


1734 


011032 


006201 








ASR 


Rl 


1735 


011034 


006201 








ASR 


Rl 


1716 


011036 


042701 


000177 






BIC 


»177,R1 


1737 


011042 


001416 








BEQ 


St 


1738 
















1739 


011044 


020167 


170170 






CMP 


RlfOFFMX 


1740 


011050 


101403 








BLOS 


3t 


1741 


011052 


104406 


023203 






MSG», 


INVCD2 


1742 


011056 


000673 








BR 


COHCON 


1743 


011060 


105767 


170220 




381 


TSTB 


KTPRE8 


1744 


011064 


001003 








BNE 


4t 


1745 


011066 


104406 


023241 






MSGt, 


INVCD3 


1746 


ill072 


000665 








BR 


COMCOH 


1747 


6ll0'4 


010167 


170144 




4*1 


MOV 


Rl, OFFSTD 


1748 


OlllOO 


112767 


000001 


170203 


58t 


MOVB 


il.RMODE 


1749 
















1750 


011106 


105067 


170214 






CLRB 


RURRFL 


1751 


011112 


004767 


010356 






JSR 


PC,MVCODE 


1752 


011116 


105067 


170167 






CLRB 


RMODE 


1753 


011122 


012767 


026520 


170140 




MOV 


iM0D0-2,BKPTR 


1754 


011130 


004767 


003714 






JSR 


PC.CLRVEC 


1755 


011134 


004787 


003626 




RUNRESI JSR 


PCCLROUS 


1756 


011140 


132767 


000002 


170172 




BITB 


»BIT1,PPBE8 


>757 


011146 


001424 








BEO 


lit 


1758 


oniso 


012767 


100001 


170316 




MOV 


*100001,LGHOLD 



IS USED WHEN 



I SET LOCK TO PREVF.NT RELOCATING CODE EACH 
jTIHE WBUF IS CYCLED 

fCLEAR LOCK TO ALr.OM CODE RELOCATION 

»ZEPO SYSTEM ERROR COUNTER 

I ZERO POWER FAIL COUNTER 

lUSING THE KWll-L CLOCK 7 

»N0, CONTINUE 

I YES, MAKE SORE CLOCK TABLE IS CLEARED 

jCONTINUE 

jUSING THE KWll-P CLOCK ? 

»N0, CONTINUE 

jYES, MAKE SURE CLOCK TABLE IS CLEARED 

> RESTORE THESE INSTRUCTIONS 

;FOR A CHECK SUM MODULE 

»IF INVALID OR NO APDRESS, FORCE 
?GET LOW ORDFR BITS 
;GET ANY HIGH ORDER BITS 



J FORCE TO 4K BOUNDARY 

J IF HOW 0, SKIP REST (TO PREVENT ERR PRINTOUT 

I IF KTPPES WAS CLEARED) 

jADDRESS IS OK, CONTINUE 

J 'CANNOT GO THAT HIGH' 

jCONTINUE 

iKTll IN USE? 

tYES, CONTINUE 

I'NEED KT-11' 

ICONTINUE 

I MAKE SURE BANK COPY OF RMODE IS 
I SET WHILE EXECUTING MVCODE 

(MOVE PROGRAM TO NEW BANK AND GO THERE 
jCLEAR CURRENT COPY OF RHODE 

(INITIALIZE TRAPCATCHER IN VECTOR AREA 

I INCLUDES CLEARING BRAKE, MODCNT, lOBKID 

lis IT AN 11/60 7 ••«»•*•••»«**••*««••»«•• 

|N0, CONTINUE 

fYES, LOAD ERROR LOG ENABLE BIT 
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SEQ 0063 



1759 
i?SQ 
1761 
1762 
176J 
1764 
1765 
1766 
1767 
1769 
1769 
1770 
1771 
1772 
1773 
1774 
177! 
1776 
1777 
1779 
1779 
1790 
1791 
1792 
1783 
1794 
179S 
1796 
1797 
1799 
1799 
1790 
1791 
1792 
1793 
1794 
1795 
1796 
1797 
1799 
1799 
1900 
1901 
1902 
1903 
1904 
1905 
1906 
1907 
1809 
1909 
1910 
1911 
1912 
1913 
1814 



01 1156 
011156 
011160 
011164 
011170 
011174 
011176 
011204 
011212 
011220 
011226 



011232 
011214 
011236 
011242 
011244 
011250 
011252 
011556 
011262 
011270 
011276 
011300 
011306 
011310 
011314 
011316 
011324 
011326 
011334 
011336 
011144 
011346 
011352 
011356 
011360 
011164 
011372 
011174 
011400 
011402 
011406 
011410 
011414 
011416 



010046 
076600 
056700 
076600 
012600 
017767 
052767 
016777 
112767 
012702 



012201 
001462 
105767 
001012 
105767 
100407 
005061 
00506! 
042761 
032761 
001755 
032761 
001351 
00S767 
001414 
032761 
001342 
032767 
001404 
032761 
001332 
105267 
005761 
100402 
105267 
032761 
001402 
105267 
000714 
105767 
OOIOOS 
005767 
flOlSOt 
000167 



011422 116767 



01M30 
011436 
011444 
01 1450 
011454 



012767 
012767 
10526"' 
105767 
001447 



000022 
170304 
000232 

170274 
000200 
170262 
177777 
026522 



170047 

170042 

000026 
000030 
020000 
040000 

020000 

167726 

004000 

001777 

002000 

167443 
000020 

167441 

niOOOO 

167426 

167407 

167626 

173572 

167367 

026520 
040000 
167702 
167637 



170274 
170266 
170256 
167575 IISJ 



000020 
000020 281 



000O20 
167706 
000020 



000020 



WRITE RDWHHI.WTWHMI 

Mnv B0,-CSP5 

MED.RDHHMI 

BIS LGHOLOfRO 

MEDfHTHHHI 



167366 5«i 



167402 
167414 



MOV 

MOV 

BIS 

MOV 

MOVB 

MOV 



MOV 

BEQ 

TSTB 

BNE 

TSTB 

BMI 

CtR 

Ct.R 

BIC 

BIT 

BEQ 

BIT 

BNE 

TST 

BEG 

BIT 

BNE 

BIT 

BEO 

BIT 

BNE 

INCB 

TST 

BMI 

INCB 

BIT 

BEO 

INCB 

BR 

TSTB 

BNE 

TST 

BEQ 

JMP 

MOVB 

MOV 

MOV 

INCB 

TSTB 

BEQ 



(SP)+>RO 

»CONTBti,KONTRI; 

«200»K0HTRE. 

KONTRL.WOMTRL 

t-l,WBFLG 

*MbDQ,R2 



t2)*.Rl 
RUKC 
BMODE 
21 

CHN 
2t 

PSCNTtRl) 

EBCNT(Rl) 

IBIT13,STAT(Rn 

»BIT14,STATCR1) 

ii 

»BIT13,STAT£Rn 

It 

OFFSET 

3t 

»eiTll,STAT(Rl) 

It 

»1777fOFrSET 

3» 

»BIT10,STATCRn 

It 

MODCNT 

STSTtRl) 

.+6 

BKCNT 

«BIT12fSTAT(Pl) 

• +6 

XCNT 

It 

MODCNT 

St 

OFFSET 

RUND 

ENDSVB 

MODCNT, MODCTR 

»MbDQ-2,M0DPTR 
440000.IOBKID 

nsTOP 

POTT 
2« 



AND FREEZE ON FIRST ERROR BIT 
ENABLE 11/60 ERROR LOS 
SAVE RES. 
SAVE 



RESTORE RES. 

GET CURRENT STATE 

ADD ABORT BIT 

WRITE IT BACK •»**•••«•**«•«••••«•*••••••«•»*• 

INITIALIZE BUFFER ROTATION FLAG 

SETUP TO COUNT SELECTED MODULESi AND 

IF NOT SYSERR OB POWER FAIL RESTART 

CLEAR MODULES' PASCNT AND ERRCNT. 

MODULE ADDR TO Rl . 

BP IF NO MORE. 

INTERNAL RESTART? 

BR IF YES. 

IN CHAIN MODE? 

BR IF YES. 

CLEAR MOO'S PASCNT, 

CLEAR HOD'S ERROR COUNT. 

CLEAR STOPPED BIT. 

MODULE SELECTED? 

eS IF NOT. 

MODULE STOPPED? 

BP IF YES. 

IF OFFSET 0, IGNORE BITS 10+11 

NOT 0- IF BITll IS SET, DON'T COUNT IT 

32K BOUNDARY? 

YES- IGNORE BIT 10 

NO- BIT 10 SET? 

YES- DON'T RUN THIS MODULE 

NO. UP COUNT OF RUNABLE MODULES. 

IBKMOO? 
NO- BRANCH 
YES- UP COUNT 
EXTENDED MODULE? 
NO- BRANCH 
YES- COUNT IT 
GO CHECK NEXT MODULE. 
AMY RUNA9LE MODULES? 
YES, BRANCH 
NO, OFFSET 0? 
YES- COMMAND INVALID 

NO- THE ONLY KODS RUNNABLE MUST BE THOSE 
WITH BITS 10 OR 11 SET- RELOCATE 
LOAD COUNT OF RUNNSBLE MODULES 
INTO STARTUP COUNTER 
MODULE TABLE AODR TO MODPTR. 
START WITH SPECIAL BACKGROUND MODULES. 
SET THE NON-STOP FLAG 
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1915 


011456 


116767 


167344 


167345 




MOVB 


XCNTjROTCT 


1916 
















1817 


011464 


106367 


167341 






ASLB 


ROTCT 


1919 


011470 


106367 


167335 






ASL3 


ROTCT 


1919 


011474 


106367 


167331 






ASLB 


ROTCT 


1920 


011500 


106367 


167325 






ASLB 


ROTCT 


1921 


011504 


126727 


167316 


000020 




C«PR 


XCNT, 420 


1922 


011512 


103403 








PLO 


It 


1923 


"11514 


112767 


000377 


167307 




MOVB 


1377, ROTCT 


1924 


011522 


116767 


167303 


167604 


IS: 


MDVB 


ROTCT, SGWBFC 


1925 


011530 


116767 


167261 


167275 




MOVB 


MODCNT, PASBEL 


1926 


011536 


106367 


167271 






ASLB 


PA8REL 


1927 


011542 


106367 


167265 






ASLB 


PASBEL 


1829 


011546 


106367 


167261 






ASLB 


PASPEL 


1«?« 


011555 


lYS?:-? 


167237 


000040 




CMPS 


MODCNT, «40 


1930 


niis6o 


103403 








BLO 


34 


1931 


011562 


112767 


000377 


167243 




MOVB 


t377,PASRCL 


1932 


011570 


004767 


000050 




3ti 


JSP 


PCSETHBF 


1933 


011574 


105767 


167511 




2ti 


TSTB 


RMODE 


1834 


011600 


001005 








BNE 


4t 


1915 


OllSO? 


10*406 


022737 






MSGs, 


Do- 


1936 


011606 


112767 


000001 


167475 




MOVB 


ll. RMODE 


1937 


011614 


000167 


170342 




4ti 


JMP INPUT 


1938 


011620 


005067 


167420 




RUNDl 


CLP 


OFFSTD 


1839 


011624 


004767 


007644 






JSR 


PC.MVCODE 


1940 


011630 


105067 


167455^ 






CLRB 


RHODE 


1841 


011634 


104406 


023316 






MSGt, 


INVCD4 


1942 


011640 


onoib? 


177002 






JMP 


COMCON 



SEO 0064 



ISETUP BOTATION TIMFDUT COUNTER- 16 TIMES NUMBEB 
SOF EXTENDED MODULES 



» PREVENT LOSS OF COUNT IF OVERFLOW 



> INITIALIZE WRITE B'JFFEP ROTATION COUNTER 
JSET ALTERNATE RELOCATION COUNT TO 9 
(TIMES MODCNT 



rSET RMODE IN CURRENT BANK 



i'NO MODULES SELECTED' 
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SCO 006S 



1843 










1 SETUP WRITE BU 


rrER INFORMATIC 


1844 














1845 


011644 


004567 


003022 




SETWBFJ JSB 


R5,T01BS 


1846 


011650 


001242 






orrsET 




1847 


01)652 


001232 






WBUF 




1848 


011654 


001234 






WBFEA 




1949 


011656 


066767 


167336 


167346 


ADD 


LOCOREfWBUr 


1850 


011664 


103003 






BCC 


• tio 


1851 


011666 


062767 


000020 


167340 


ADD 


I20>WBFEA 


18S2 


011674 


016767 


167324 


167334 


MOV 


LC0R12,WBUri2 


1853 


011702 


066767 


167334 


167326 


ADD 


OFFSET, WBUri2 


1854 


011710 


026767 


167322 


167310 


CMP 


WBUF12,HC0R12 


1855 


011716 


001003 






BNE 


SETWBl 


1856 


011720 


004767 


004726 




J8R 


PCPOTLOW 


1857 


011724 


000207 






RTS 


PC 


1858 














1859 


01)726 


016767 


167274 


167322 


SETWBll MOV 


HCbP12,MXWBF 


1860 


01)734 


105767 


167352 




TSTB 


CHN 


1861 


011740 


100003 






BPL 


It 


1862 


011742 


062767 


000040 


167306 


ADO 


»40,MXWBF 


1863 


0117S0 


166767 


167262 


167300 


t$t SUB 


WBUF12,MXWBF 


1864 


011756 


006367 


167274 




ASL 


MXWBF 


1865 


01J762 


006367 


167270 




ASL 


MXWBF 


1866 


011766 


006367 


167264 




ASL 


MXWBF 


1887 


011772 


006367 


167260 




ASL 


MXWBF 


1868 


01)776 


006367 


167254 




ASL 


MXWBF 


1869 


012002 


103003 






BCC 


. + 10 


1870 


012004 


012767 


177777 


167244 


MOV 


«177777#HXWBF 


1871 


012012 


000207 






RTS 


PC 



jIS WRITE BUFFER AT THE TOP ? 

',«0, IT'S OK, CONTINUE 

(YES, SETUP TO ROTATE BELOK PROGRAM 

jRETURN 

tCalculate max size of write buffer 

I IN CHAIN mode ? 

|N0, DON'T ADD ANY '^ORE WRITE BUFFER 

jYES, add IK TO MAX. WRITE BUFFER SIZE 
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1872 
1873 
1874 
1875 
1876 
1877 
1878 
1879 
1880 
1881 
1882 
1883 
1884 
1885 
1886 
1887 
1888 
1889 
1890 
1891 
1892 
1893 
1894 
1895 
1896 
1897 
1898 
1899 
1900 
1901 
1902 
1903 
1904 
1905 
1906 
1907 
1908 
1909 
1910 
1911 
1912 
1913 
1914 
1915 



012014 
0)2022 
012030 
012034 
012042 
012050 
012054 
012056 
012060 
0)2064 
012066 
012070 
0)2074 
012076 
012)04 
0121)2 
012120 
012124 
012130 
012132 
012140 
6)2l44 



0)2)50 
0)2)54 
012)56 
0)2162 
012166 
012172 
0)2176 
012200 
012204 
012206 



012737 
012737 
012701 
012737 
012737 
012703 
012102 
005012 
062702 
005303 
001373 
020127 
003765 
012737 
012737 
012737 
012706 
105767 
001405 
012737 
012706 
005037 



004467 
005001 
012702 
012703 
012712 
010162 
005722 
062701 
005303 
001367 



012210 012737 

012216 012737 

012224 004767 

012230 000207 



015254 
000340 
001276 
000006 
000002 
000040 



001302 

015246 
000340 
140000 
027002 
167203 

040000 
027012 
177776 



002564 

172300 
000007 
077406 
000040 

000200 



007600 
077406 
002522 



000250 
000252 



000004 
000006 



000004 
000006 
177776 



jKTll INITIALIZATION ROUTINE ASSUMES KT) ] IS OFF WKEN CALLED 

KTINITi MOV »KTERB, 91250 jSETUP MEMORY MANAGFHFNT ABORT VECTOR 

MOV #PRTY7,P#252 jDON'T LET ANYTHING ABORT A MEMORY MANBGE«E»;T ABHRT 

MOV »PDPTAB,R] jSETUP TO CLEIR ALL KTl) REGISTERS 

MOV •6,»»4 sSETUP TO RTI IF KT11-D WHEN 

"OV #RTI,8»6 (ADDRESSING REGISTERS IT LACKS 

l$l MOV 132. ,P3 (LOAD THE COUNT OF KT) I REGISTERS TO BE CLEARED 

MOV tRn + ,R2 (GET ADDRESS OF REGISTER SET 

j$, CLR tP2) (CLEAR ALL PAR'S AND POP'S 

ADD #?,P2 (USE THE ADD INSTRUCTION TO POINT TO THE "EXT REGISTEn, 

DEC R3 (REDUCE COU^T OF APB REGISTERS CLEARED 

BNE 28 (IS COUNT EXCFEHED? IF NO, GO CLEAR AGAIN 

CMP R1,#PDREND (IF YES, THEN Is THE TABLE BOUNDARY EXCEEDED? 

BLE U :IF NO, no THE KEXT SET IN THE TABLE 

MOV »BUSERP,9»4 (RESTORE THE BUS FRPOP VECTOR. 

MOV »PRTY7,9»6 (RESTORE THE BUS ERROR PRIORITY 

MOV »UMODE, RIPS (SET TO USFP MODE 

MOV iUSP,SP (LOAD USER STACK POINTER 

TSTB HDi;,45 (IS THIS A PDP 11/457 

BEQ 33 (IF NOT, 00 NOT SET UP THE SUPERVISOR STACK 

MOV •SM0DE,9iPS (IF YES, SET TO SUPERVISOR MODE 

MOV »SSP,SP »LOAD SUPERVISOR STACK POINTER 

3tt CLR StPS (RETURN TO KERNEL MODE 

(SET UP ALL THE PAGE DESCRIPTIONS THE SAMEl READ/WRITE PROTECTION 
(UPWARD PAGE ADDRESSING, AND M4XIHUM BLOCK COUNT, 
1 (177 OCTAL BLOCKS ■ 128 X 32 WORD DECIMAL BLOCKS) 



172356 
172316 



KTSETOl JSR 
CLR 
MOV 
MOV 

1$J MOV 
MOV 
TST 
ADD 
DEC 
BNG 

MOV 
MOV 
JSR 
RTS 



R4,SAV04 (SAVE PEGS. THRU 4 

R1 (MAP STARTING AT BANK 

iKIPDP0,R2 (LOAD ADDRESS OF PDR 

t7,R3 (LOAD COUNTER TO DO 28K 

#77406, (R2) (SET THE PDR TO 4K, R/W, OP 

R1,40(R2) (SET THE PAR TO THE PROPER 4K BANK 

CR2J+ (POINT TO NEXT PDR AND PAP 

#200, Rl (STEP TO NEXT 4K BftWK 

R3 SALL DONE ? 

It (NO, CONTINUE 

#7600,9»KIPAR7 (POINT REGISTER 7 T«E UNIBUS ADDRESS SPACF 

#77406, 9#KIPOP7 (SETS UP REGISTER 7 

PC,RST04 (RESTORE PEGS, THRU 4 

PC (RETURN TO THE CALLING PROCEDURE 
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SEQ 0067 













(PARITY 


ENABLE 


ROUTINE .— ; 




















012232 


13276? 


000002 


167100 


PAENBLt 


BITS 


tBiTl.PPRES 




012240 


001403 








BEQ 


11 




012242 


052777 


000001 


167226 




BIS 


ll,aCONTRL 




















012250 


012700 


001430 




111 


MOV 


*PAPTAB,RO 




012254 


005001 








CLR 


Rl 




















012256 


012770 


000001 


000000 


2Si 


HDV 


#1,9(R0) 




013264 


032770 


000001 


000000 




BIT 


»1,9(R0) 




012272 


001002 








BNE 


3* 




012274 


004767 


003476 






JSP 


PCPAMSG 




















012300 


005720 






3ti 


TST 


CROH 




012302 


005201 








INC 


Bl 




012304 


126701 


i»"r.3i 






CMPB 


CNIl.Rl 




012310 


003362 








BST 


21 




















012312 


000207 






411 


RTS 


PC 



















- ASSUMES THAT PARITY IS PRESENT 



(IS IT AN 11/60 1 

jNO» CONTINUE 

(ENABLE CACHE PARITY TRAPS 



(CET ADDRESS OF PARITY ADDRESSES 
(CLEAR COUNTER 

(SET PARITY ENABLE 
(IS PARITY ENABLED ? 
(YBS, CONTINUE 

(NO, REPORT THE ERROR 

(STEP TO NEXT REGISTER ADDRESS 
(STEP THE REGISTER COUNTER 
(ALL PARITY REGISTEPS SET 7 
(NO, 00 THE NEXT ONE 

(YES, ALL DONE, RETURN 
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SEO 006B 



1937 








(MAP 


ROUTINE. 


TYPES RESIDENT MO 


1930 














1939 


012314 


105267 


166471 


MAP( 


INCB 


OIRIND 


1940 


012320 


105067 


013303 




CLRB 


MDIBE 


1941 


012324 


004767 


000004 




JSR 


PCDIRA 


1942 


012330 


000167 


176312 




JMP 


COHCON 


1943 














1944 


012334 


012702 


026522 


DIRAi 


MOV 


IM0D0,B2 


1945 


012340 


012201 




Itt 


MOV 


(2)+>Bl 


1946 


012342 


001446 






BEO 


5S 


1947 


012344 


032761 


040000 000020 




BIT 


#BIT14,STAT(R1) 


1948 


012352 


001003 






BNE 


2t 


1949 


012354 


105767 


166431 




TSTB 


DIPIND 


1950 


0133«0 


OOJ767 






BEO 


!• 


1951 


012362 


004567 


001246 


2«( 


JSR 


R5,riLLNM 


195? 


012366 


025574 






AMODNM+l 


1953 


012370 


010146 






MOV 


Rl,-tSP) 


1954 


012372 


004567 


001542 




JSR 


RS.OACNV 


1955 


012376 


025605 






4 PC 




1956 


012400 


016146 


000020 




MOV 


STATCR1),-(SP) 


1957 


012404 


004567 


001530 




JSR 


RS.OACNV 


1958 


012410 


025621 






AMDSTA 




1959 


012412 


016146 


000026 




MOV 


PSCNTCR1),.(SP) 


i960 


012416 


004567 


001750 




JSR 


RS.BDCNV 


1961 


012422 


025640 






APSCNT 




1962 


012424 


016146 


OOOOJO 




MOV 


EPCNTtRl),-(SP) 


1963 


012430 


004567 


001736 




JSR 


R5,»DCNV 


1964 


012434 


025657 






AEBBS 




1965 


012436 


105767 


166347 




TSTP 


DIRIND 


1966 


012442 


001003 






BNE 


3( 


1967 


012444 


112767 


000040 013155 




MOVR 


I40,MDIRE 


1968 


012452 


104406 


025573 


3S( 


MSCSitMODNIC 


1969 


012456 


000730 






BR 


IS 


1970 


012460 


000207 




5«« 


RTS 


PC 



(SET DIP INDICATOR, 
(TERMINATE ASCII STRING EARLY. 
(TYPE MAP, 



(GET MODULE TABLE ADDR, 

(GET MODULE AnDR. 

[BR IF 0. ALL DONE. 

(MODULE SELECTED? 

(BR IF YES. 

(TYPING DIRECTORY? 

rW» IF fOT, or»«»T TtPt t!'«SFtFCTCP »'ODS, 

(FILL MHD NAME TN ASCII STRING. 

(ADDR TO STUFF NAME IN, 

(MODULE ADDR TO STACK, 
(CONVERT MOD ADDR TG ASCII, 

(CONVERT MODULE STATUS. 



(MOD'S PASS COUNT TO STACK, 
(CONVERT IT TO DECI^^AL ASCII, 

(HOD'S ERROR COUNT TO STACK. 
(CONVERT IT TO DECIMAL ASCII, 

(TYPING DIRECTORY? 

(BR IF YES. 

(NO, ALLQ-l TYPING FULL STRING 

(TYPE ASCII LINE. 

(DO IT AGAIN. 

(EXIT. 
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see 0069 













1 SELECT 


MODULECS) ROUTINE. 




















013462 


013767 


0S2761 


000040 


SEll 


MOV 


*53761,SLDSB 




013*70 


012767 


052761 


0OO0S4 




MOV 


*S3761, SLDSE 




012476 


000406 








BR 


SLDS 




























, DESELECT HODULEtS) ROUTINE. 




















013SOO 


012767 


042761 


000033 


DESi 


MOV 


#43761, SLDSB 




012506 


012767 


043761 


000036 




MOV 


•43761, SLDSE 




























1 SELECT/DESELECT COMMON. 




















013514 








SLDSt 








012514 


004767 


001142 




SLDSAi 


JSR 


PC.CETNAM 




012530 


000410 








BR 


SLDSC 




013533 


000405 








BR 


SLDSL 




012524 


016701 


166310 






MOV 


M0DPTR,B1 




012530 


042761 


040000 


000030 


SLDSBi 


BIC 


fBIT14,STATCBl) 




012536 


000167 


176104 




SLDSLI 


JHP 


COMCON 




012542 


012702 


026523 




SLDSCi 


MOV 


*HoDO,R2 




012546 


012201 






SLDSDt 


MOV 


t25+,Pl 




012550 


001772 








BEO 


SLDSL 




0125S2 


042761 


040000 


000030 


SLDSEi 


BIC 


«MT14,STAT(R1) 




012560 


000772 








BR 


SLD8D 












1 LOCATIONS SLD5B AND SLDSE APE 



(MOOirif COMMON TO SELECT MODULE{S), 

I 

I GO TO COMMON, 



IHOOIFY COMMON TO DESELECT MODULECS), 



iCHECK NAME, GET MODULE ADDR, 

jNO NAME. SELECT/DESELECT ALL, 

I INVALID OR NEX NAME, 

(MODULE ADDR TO Rl, 

I SELECT/DESELECT MODULE, 

(DONE, 

I MODULE TABLE ADDR TO R2, 

»GET MODULE ADDR. 

jBR IF O.END OF TABLE. DONE, 

J SELECT/DESELECT MODULE, 

iDO IT AGAIN, 
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1997 










iKTll 


DISABLE ROUTINE 




199!) 


















1999 


niJSSZ 


105767 


166516 




KTOFFl 


r TSTB 


KTPPES 




2000 


013566 


001003 








BHE 


11 




2001 


ni257n 


000167 


176062 






JMp 


C0MC03 


J IGNORE COMfAND- NO KT OP ALl 


2002 


012574 


105067 


166504 




l«l 


CLPB 


KTPRES 




2003 


















3004 


















300S 


013600 


005017 


177572 






CLR 


9(SSR0 


ITUPN OFF KTll 


3006 


012604 


026737 


166416 


001600 




CMP 


HCOP13,«1600 


JMORE THAN 28K AVAILABLE ? 


3007 


012612 


101403 








BL05 


3t 


I NO, CONTINUE 


3008 


012614 


013767 


001600 


166404 




MOV 


tl600,HCOP12 


JYES, SET MRMOSy SIZE TO 3SK 


3009 


012622 


104406 


024007 




3*1 


MSGS. 


iKTDlS 


>"KT11 OFF" 


2010 


012626 


000167 


176034 






JMP 


C0MC03 




2011 


















2012 










iKTU 


ENABLE 


ROUTINE 




2013 


















2014 


012632 


017737 


013704 


000004 


KTONJ 


MOV 


(1$,0*4 




2015 


012640 


032737 


000001 


177572 




BIT 


»l,fl»SSB0 


lALREADY ON 7 


2016 


012646 


001027 








BNE 


2« 


SYES, FORGET IT 


2017 


012650 


112767 


000001 


166426 




MOVB 


11, KTPRES 


»N0, SET KT PRESENT FLAG 


2019 


012656 


016767 


166346 


166342 




MOV 


HC0PSV,HC0R13 


IRESTORE MEMOBY SIZK 


2019 


012664 


004767 


177134 






JSR 


PCKTINIT 


lINITIALIZE KTll 


2020 


112670 


01J737 


000001 


177572 




MOV 


•1,B»SSR0 


jTURN IT ON 


2021 


















2022 


















2033 


012676 


104406 


024615 






MSG$, 


KTONH 


»"KT11 ENABLED" 


2024 


012702 


000411 








BR 


2S 


iCONTINUE 


2025 


012704 


012737 


015246 


000004 


111 


MOV 


IBUSERR,»«4 




2026 


012712 


005067 


165060 






CLR 


PSH 




2027 


012716 


104406 


023776 






Hsa$, 


NOKT 


J"N0 KTll" 


2028 


012722 


000167 


175720 






JMP 


COMCON 


, CONTINUE 


2029 


012736 


012737 


015246 


000004 


3*1 


MOV 


*BUSEPR,8t4 




2030 


013734 


005067 


165036 






CLR 


PSW 




2031 


012740 


000167 


175712 






JMP 


C0MC03 
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3032 
3033 
3034 
3035 
3036 
3037 
3038 
3039 
3040 
3041 
3042 
3043 
3044 



013744 lOSOfi? 166344 
013750 004767 003764 
012754 000167 175676 
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ITHIS RQUTIKE ENABLES WRITE BUFFER SOT^TJD« 

ROTO»I CtRB ROTL (CLEAR ROTATION LOCK FLAG 

JSR PC.RQTCHK .GO DO "EHABLED" MESSAGE 
JHP CQMC03 fCOMTINUE 

JTHIS ROUTINE DISABLES WRITE BUFFER ROTATION 



SEO 0071 



012740 113767 000377 166336 

012766 016767 1S6326 166323 

013774 104406 024555 

OIIOOO 000167 175652 



BOTOFFI MOVB #377, ROTL 

HOV ROTNUM,ROTCNT 

MSGt.ROTOIS 

JMP C0HC03 



I SET THE ROTATION LOCK FLAG 
fLOAD THE ROTATIDM COUNTER 
»"«BUF ROTATIOH DISABLED" 
JCONTIHUE 
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2045 
2046 
2047 
2048 
2049 
2050 
2051 
2052 
2053 
2054 
2055 
3056 
2057 

aosA 

2059 

2060 

2061 

2062 

2063 

2064 

2065 

2066 

2067 

2068 

2069 

2070 

2071 

2072 

2073 

2074 

2075 

2076 

2077 

2078 

2079 

2080 

2091 

2082 

3083 

2084 

2085 

2086 

2087 

2088 

2089 

2090 

2091 

2092 

2093 

2094 

2095 

2096 

2097 

2098 

2099 

2100 



013004 
013010 



013014 
013022 
013024 
013030 

et>ft34 

013036 
013042 



013044 
013052 
013054 
013060 
013062 
013070 
013072 

013100 
013104 

013106 
013110 
013112 
013116 

013120 
013124 



013130 
013132 
013136 
013140 
013142 
013144 
013152 
013160 
013164 



013170 
013176 



004767 000004 
000167 175642 
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iTHIS ROUTINE IS NECESSARY TO SUPPORT THE PON COMMAND 
PONj 



SEQ 0072 



JSR 
JHP 



PC, PONS 
C0MC03 



J GO TURN OH PARITY 
:CONTINUE 



132767 
001405 
004767 
104406 
0fl04«3 
104406 
000207 



132767 
001003 
104406 
000421 
132767 
001403 
043777 



024021 



012700 001430 
005001 

005030 

005201 

126701 166223 

003373 

104406 024034 
000167 175526 



010046 

012700 000200 

076600 

000352 

013600 

042767 

016777 

104406 

000167 



iTHIS ROUTINE WILL TURN ON PARITY IF AVAILABLE 



000001 166316 PONNJ 



177202 
023756 



Hi 
281 



BITB »BITO,PPRFS 

BEO 1$ 

JSR PC.PAENBL 

«SG»,PENABL 

PR 21 

MSG8,N0PAP 

PTS PC 



lANY PARITY TO TURN ON 7 
»N0, SAY SO AND RETURN 
I YES, GO TURN IT ON 
("PARITY ENABLED" 

1 RKTURN 

t'ar, PARITY" 

J RETURN 



JTHIS ROUTINE DISABLES PARITY IF PRESENT 
000001 166266 POFFI 



BITB »PIT0,PPRCS 
BNE It 
MSG(,NOPAR 



OOOOOJ 166250 111 



000001 166376 



211 
3Sj 



RR 

BITB 

BEO 

BIC 

MOV 
CLR 

CLR 
INC 
CMPS 
BGT 



41 

»BIT1,PPRES 
2S 

«1,«C0NTRL 

•P4PTAB,R0 
Rl 

?CRQ)+ 
Rl 

CNT1,R1 
3$ 



HSG«,PAOFF 
JMP C0MC03 



lANY PARITY TO TURN OFF T 
lYES, CONTINUE 
»"H0 PARITY" 
fPETURN 
lis IT AN 11/SO 7 ••••••*•«••*•**••••««*»««»«« 

I NO, CONTINUE 

JDISABLE CACHE PARITY TRAPS «••*•««*••*••• 

IGET ADDRESS OF PARITY ADDRESSES 
iCLEAR THE COUNTER 

iCLEAR THE PARITY REGISTER 
I STEP THE REGISTER COUNTER 
lALL PARITY REGISTERS CLEARED ? 
I NO, CLEAR THE NEXT ONE 

I "PARITY OFF" 
ICONTINUE 



iTHIS ROUTINE TURNS ON THE CACHE. SUPPORTS THE CON COMMAND. 
CON! 



000014 166326 
166332 166316 
033643 

175466 



HOV RO,-tSP) 

MOV »200,R0 

MED 

352 

MOV (SP)*,RO 

BIC I14,K0NTRL 

HOV KO)ITRL,»CONTRL 

MSG(,COIiN 

JMP C0MC03 



ISAVE RO 

I SWEEP CACHE CLEAN FIRST 



(RESTORE RO 

(CLEAR OUT THE FORCE MISS BITS 

(DO IT 

("CACHE ENABLED" 

(CONTINUE 



(THIS ROUTINE TURNS OFF THE CACHE. SUPPORTS THE COFF COMMAND. 



052767 000014 166302 
016777 166276 166272 



BIS 

MOV 



•14,K0NIRL (SET THE FORCE MISS BITS 
KOKTRt,»COHTRL (DO IT 
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2101 01)204 

2102 013210 
2103 



104406 
000167 



023662 
175442 



M8G»,corrr 

JMP C0MC03 



{"CACHE DISABLED" 



OABM DEC/X11 ST»NOARD MONITOR 
DXQ»BM,P11 21-SPR-77 12:42 



2104 








2105 








5106 








2107 








2108 








2109 


0132)4 


1)2767 


177777 


2110 


013222 






2111 


013222 


004767 


000434 


2112 


013226 


000401 




21)3 


013230 


000440 




2114 


013232 


004767 


000212 


2115 


013236 


000430 




2116 


013240 


016704 


165576 


2117 


013244 


066704 


165570 


211fl 


013250 


0)0446 




2119 


013252 


004767 


000150 


2120 


013256 


011446 




2121 


0)3260 


004767 


000142 


2122 


013264 


004767 


175376 


2123 


013270 


004767 


000222 


2124 


013274 


000416 




2125 


013276 


005767 


165560 


2126 


013302 


001401 




2127 


0)3304 


010114 




2128 


013306 


122702 


000012 


2129 


013312 


001007 




2130 


013314 


005724 




2131 


013316 


000754 




2132 


PJ3320 


012704 


001306 


2133 


013324 


105767 


165774 


2134 


013330 


001352 




2135 


013332 


000167 


175310 
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iMODIFY ROUTINE. 

iGETS ADDRESS AND PRINTS ADDR CONTENTS, 

lUSEB CAN INPUT NEW NUMBER OR CR. 

iCP MEANS HE JUST WANTS TO EXAMINE, 



FILL! 


HOVR 


»-1,FH,LID 


MODI 






SSI 


JSR 


PC.GETNAM 




BR 


48 




BR 


3S 


4ti 


JSR 


PC.GETADR 




BR 


6S 




MDV 


ADDBL0,P4 




ADD 


M0DPTP,B4 


ISl 


MOV 


P4,-(SP) 




JSR 


PCITOA 


7»l 


MOV 


CP4).-(SP) 




JSR 


PCITOA 




JSR 


PC.SINPUT 




JSR 


PC.GEINUM 




BR 


3e 




TST 


YES 




BEQ 


2S 




MDV 


P1,(R4) 


2tl 


CMPE 


tl2»P2 




BNE 


3t 




TST 


(R4) + 




BR 


1$ 


6tl 


MOV 


»FILCNT,P4 




TSTB 


FILLID 




BNE 


7S 


3$l 


JMP 


COMCON 



SSET Fill INDICATOR. 

;GET NAME AND MOOI'L?" ADOP, 

jNO NAME. 

sINVAliID OR NEX NAME, 

I GET addre:ss, 

! INVALID ADDR OR NO ADDR. 

l"OVE ADDR TO R4, 
;ADD MODULE ADDR TO ADD", 

jTYPE ADDR. 
I 

;GET CONTENTS OF ADDR, 
jPRINT IT OUT. 
;GET NEW CONTENTS. 
jCONVERT INPUT TO BTNABY, 
ITNVALIO DATA (NOT A WU"BEP) , 
•NU'^BFR? 
;BR IF NOT, 
I STORE NEW VALUE. 
;LINE FEED? 
;N0, DONE. 

(POINT TO NEXT LOCATION. 
T REPEAT FOR NEXT LDC. 
SGET FILCNT ADDR. 
!lN FILL MODE? 
iBR IF YES. 
SDONE. 
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3136 










2137 










3138 


013336 


016646 


000002 




3139 


013342 


016666 


000002 


000004 


3140 


013350 


016666 


000006 


000002 


3141 


013156 


004867 


000570 




3142 


013363 


02567S 






3143 


013364 


104406 


025675 




2144 


013370 


00042S 






3145 










3146 


013372 


016646 


000002 




2147 


013376 


016666 


000002 


000004 


214S 


013404 


016666 


000006 


000002 
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iBIMARY TO ASCII TYPE ROUTINE, TYPES NUMBERtS) ON STACK, 



HOV 


2CSP3,-tSP) 


JL0»D EA BITS 


HOV 


2(SP1.4(SP} 




HOV 


6tSP).2CSP) 




JSR 


RSjOACSVX 




H0LD6 




jAND PUT IT HRRE 


MSGt. 


H01D6 


I TYPE OUT THE VALUE 


BP 


ITOUT 




HOV 


2CSP)«-(SP) 


jLOAD UPPER BITS 


MOV 


2CSP)»4(SP) 


sAND LOWER BITS 


MOV 


6(SP5.2(SP) 


J AND ADJUST THE STACK 
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2149 


013412 


004567 


000542 




JSR 


R5,0ACNV8 


2150 


013416 


025706 






HOLDS 




2151 


013420 


104406 


025706 




MSS$, 


HDLD8 


2152 


013424 


000407 






BP 


ITOUT 


21^3 














2154 














2155 


013426 


016646 


000002 


ITOAI 


Mnv 


2tSP)r-(SP) 


2156 


013432 


004567 


000502 




JSR 


R5,0ACNV 


3157 


013436 


025675 






H0LD6 




2158 


(113440 


104406 


025675 




MSGS, 


H0LD6 


2159 


013444 


012616 




I TOUT! 


MOV 


(SP)+,(SP) 


2160 


013446 


000207 






PTS 


PC 



;C0NVERT 8 OCTAL NUMBERS TO ASCII 

}AND PUT THRM HERE 

(TYPE OUT THE OCTAL VALUE 

J GO TYPP IT OUT 



jCONVERT NUMBER TP ASCII , 
jTYPE OCTAL VALUE. 
jEXIT, 



OilBM OEC/Xll STANDAPO MONITOd 
DXQABM.pii 21-APH-77 12142 



2161 
9162 
2163 
2164 
216S 
2166 
2167 

2iee 

2169 
2170 
9171 
9172 
2173 
2174 
9175 
2176 



013450 
013454 
013456 
013462 
013464 
013466 
013470 
013472 
013476 
013502 
013506 

013510 
013514 



004767 
000414 
005767 
001411 
006201 
103410 
OfiOlOl 
010167 
010367 
069716 
000907 

104406 
000207 



165400 



165344 
165342 
000002 
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iTHIS ROUTINE GETS THE ADDRESS ASSOCIATED WITH THE MOD COMMAND 

(GET NUMBER 

; INVALID DATA RETURN, 

{NUMBER? 

jBR IF HOT. 

:GOOD ADDRESS? 

jNOGOOD, IT'S OPD 

(RESTORE THE ADR 

» STORE AT ADDRLO 

(AND ANY HIGH ORDER BITS IN ADDRHI 

SSET UP GOOD EXIT. 

jDONE 

»TyPE INVALID ADDR np DATA. 
»EXIT, 



SEO 0077 



GETADRI 


JSR 


PCGETNUM 




BR 


1$ 




TST 


YES 




BEQ 


1* 




ASR 


Rl 




BCS 


ADRERR 




ADD 


Rl.Rl 




HOV 


PI, ADDRLO 




MOV 


R3,ADDRHI 




ADD 


»2,(SP) 


1*1 


RTS 


PC 


ADRERRI 


MS6«, 


rINVADR 




RTS 


PC 
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2177 








217B 








5179 








9180 








2181 


011516 


016700 


165314 


2182 


013592 


005001 




2183 


013524 


005003 




2184 


013596 


005067 


165330 


2185 


013532 


119002 




9186 


013534 


120227 


000040 


9187 


013540 


001770 




2188 


013549 


122702 


000015 


2189 


013546 


001425 




2190 


013550 


190927 


000012 


2191 


013554 


001422 




2192 


013556 


120227 


000060 


2193 


013562 


002752 




9194 


013564 


120227 


000067 


9195 


013570 


003347 




9196 


013572 


006301 




9197 


013574 


006103 




9198 


013576 


006301 




9199 


013600 


006103 




2900 


013602 


006301 




9901 


013604 


006103 




2209 


013606 


060201 




2903 


013610 


162701 


000060 


2904 


013614 


005267 


165242 


9905 


013690 


000744 




2206 


013622 


010067 


165210 


2907 


013696 


062716 


000002 


2908 


013632 


000207 
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lOET NUMBER FROM KEYBOARD BUErEB, AND PETUPN THF LO'^ OPDER "^ITS 

I IN Rl AND THE HIGH ORDER BITS IN B3. 

(ROUTINE ADOS 2 TO THE RETURN PC IF SUCCESSFUL. 

(GET BUFFER PDIi^IFP, 
(DATA 

(FLAG 

(GET A BYTE 

(SPACE? 

(YES, IGNORE IT 

(CRT 

(YES, RETURN 

(LF? 

(DONE 

(LOW LIMIT 

(TOO LOW, REPORT THF ERROR 

(HIGH LIMIT 

(TOO HIGH, REPORT THE ERROR 

(SHIFT OLD STUFF 

(3 TIMES LEFT 

(I.E. HULT. BY OCTAL 10 

(ADD NEW TO OLD 

(BUT GET RID OF ASCII STUFF 

(SET FLAG 

(MOPE, MOPE 

(SAVE CURRENT BUF PHIMTER. 

(SET UP OK EXIT, 

(EXIT, 



SEO 0078 



GETNUMJ MOV 


KRPTR,RO 


3«i CLP 


Rl 


CLP 


R3 


CLR 


YES 


l«l MOVB 


(P0)+.R2 


CMPB 


R2,i40 


BEO 


3a 


CMPB 


ft5»R9 


BEO 


9« 


CMPB 


R2,tl2 


BEQ 


2t 


CMPB 


R2,«'0 


BLT 


ADRERR 


CMPB 


R2,f7 


BGT 


ADRERR 


ASL 


Rl 


POL 


P3 


ASL 


Rl 


POL 


R3 


ASL 


Rl 


POL 


R3 


ADD 


R2,R1 


SUB 


»'0,R1 


INC 


YES 


BR 


1» 


2ti MOV 


RO.KBPTR 


ADD 


»9,(SP) 


RTS 


PC 
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3309 






3310 






2311 


013634 


010346 


2313 


013636 


012503 


3313 


013640 


012704 


3214 


013644 


113123 


3315 


013646 


005304 


3316 


013650 


001375 


2217 


013653 


162701 


321B 


013656 


012603 


2219 


013660 


000205 
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iTHIS ROUTINE PUTS THE "ODULE NAME INTO AN kSCll STRING FOR OUTPUT 



SEQ 0079 



PILLNHi 


MOV 


P3.-CSP} 


rSAVE R3. 




MOV 


CR5)+tR3 


I STORE ADDR TO R3, 




MOV 


*5,R4 


IWILL DO 5 TIMES. 


lii 


HOVB 


CRn + .tR33* 


iHQVE CHAR. 




DEC 


R4 


(DONET 




BNE 


U 


:BR IF NOT. 




SUB 


iS.Rl 


J RESTORE Ri. 




MOV 


CSP)+,R3 


» RESTORE R3. 



jEXIT. 
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2230 








ITHIS P 


OUTINE 


GETS THE MODUliE 


NAME ASSOCIATED WITH THE MOD AND SEL/I 


5E5 COMM 


2221 


















3332 


013663 


016700 


165150 


GETNAMi 


MOV 


KBPTR.RO 


»GET BUFFER POINTER. 




2323 


013666 


005067 


165170 




CIR 


YES 


J CLEAR SUCCESS INDICATOR. 




2324 


013672 


005067 


165142 




CLP 


MODPTR 


lIF Of ABS ADDR. 




2225 


013676 


012702 


000005 




MOV 


#5,R3 


;MILL DO 5 TIMES. 




2226 


013702 


012701 


025574 




MOV 


#»M0DNM+1,B1 


;MILL STORE KYBD NAME IN IMPNAM. 




2227 


013706 


112721 


000040 


l«l 


MOVB 


#4o.(Rl)+ 


JBUT CLEAR IT TO SPACES FIRST, 




3328 


013713 


005302 






DEC 


R3 


iDDNE? 




2329 


013714 


001374 






BNE 


la 


JBR IF NOT. 




2230 


013716 


P12701 


025574 




MOV 


•AMODNN+liPl 


J RELOAD TEMP ADDR. 




2331 


013722 


111002 




311 


MOVB 


(P0).R2 


jGET CHAP FROM KBUF AREA. 




2232 


013724 


122702 


000015 




CMPB 


«15>R2 


JCR? 




?2i3 


«1*790 


00*449 






F>EO 


6* 


tBB IF YES. 




2234 


013732 


122702 


000012 




CMPB 


t12.R2 


ILFT TREAT AS CR. 




2235 


013736 


001437 






BCQ 


6« 


SBP IF YES. 




3236 


013740 


122702 


000040 




CMPB 


t40#R2 


jSPACET DISREGARD LEADING ONES. 




2237 


013744 


001430 






BEO 


sa 


>RR IF YES. 




2238 


013746 


120227 


000101 




CMPB 


P2,t'A 


|A OR HIGHER? 




2239 


013752 


002403 






BLT 


31 


tBR IF LESS. (COULD BE A NUMBER). 




2340 


013754 


120227 


000132 




CMPB 


R2,t*Z 


tZ OR LESS7 




2241 


013760 


003411 






BLE 


4t 


iBR IF Z OP LESS, 




2342 


013762 


120227 


000060 


3$i 


CMPB 


R2,l'0 


lO OR HICHERT 




2243 


013766 


002427 






BLT 


7« 


jBB IF LESS, YOU LOOSEI 




2244 


013770 


120227 


000071 




CMPB 


R2,»'9 


19 OR LESS? 




2245 


013774 


003024 






BGT 


7» 


J BR IF GREATER. YOU LOOSEI, 




2246 


013776 


005767 


165060 




T8T 


YES 


;ANY PREVIOUS CHARS? 




2247 


014002 


001426 






BEQ 


8* 


jBR IF NOT. NOT LEADING NUMERICS ALLOWEDl, 


2348 


014004 


026727 


165052 000005 4«l 


CMP 


YESilS 


»6TH CHARACTER? 




2249 


014012 


002015 






BGE 


7t 


>IF YES, BRANCH 




2250 


014014 


110221 






MOVB 


R2,(Rn + 


, STORE CHAR. 




2251 


014016 


005267 


165040 




INC 


YES 






2252 


014022 


005200 




4111 


INC 


BO 


jPOINT TO NEXT CHAR. 




2253 


014024 


000736 






BR 


2t 


|D0 IT AGAINI 




2254 


014026 


005767 


165030 


511 


TST 


YES 


fAHY CHARS? 




2255 


















3356 


















2257 


















2258 


014032 


001773 






BEQ 


411 


>BR IF NOT, 




2259 


014034 


000416 






BP 


91 






2260 


















2261 


014036 


005767 


165020 


611 


TST 


YES 


lANY CHARS? 




2262 


014042 


001013 






BNE 


9t 


»BR IF YES. 




2263 


014044 


000405 






BR 


Bt 


(NO NAME, 




2264 


014046 


104406 


023370 


711 


MSGI, 


INVNAM 


ITYPE INVALID OR NEX (HON-EXISTEHT) 


MESSAGE 


2265 


014052 


062716 


000002 




ADD 


f2,(SP) 


JSET UP INVALID NAME EXIT. 




2366 


014056 


000207 






RTS 


PC 


jEXIT. 




2267 


















2268 


















2269 


014060 


005067 


164776 


811 


CLR 


YES 


1 




2270 


014064 


010067 


164746 




MOV 


PO.KBPTR 


tSAVE CURRENT BUF POINTER. 




2271 


014070 


000307 






RTS 


PC 


lEXIT, 




2272 


014072 


012702 


036533 


911 


MOV 


*MbDQ,R2 


1 MODULE TABLE ADDR TO R3, 




2273 


014076 


012203 




lOlt 


MOV 


(R2)+»R3 


(GET MODULE ADDR. 




2274 


014100 


001762 






BEQ 


7« 


(INVALID NAME, NO HaDULEU 




2275 


014102 


012701 


025574 




MOV 


tAM0DNM4'l.Ri 
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SEO OOBl 



2276 


014106 


012704 


000005 


2277 


014112 


122123 




2278 


014114 


001370 




2279 


014116 


O0S3O4 




2280 


014120 


001374 




2281 


014122 


014267 


164712 


22S2 


014126 


010067 


164704 


2383 


014132 


062716 


000004 


2284 


014136 


000207 





MOV 


• 5,P4 


CMPB 


(Pl)+.C3)+ 


BNE 


101 


DEC 


R4 


BNE 


lit 


MOV 


-tB2),M0DPTB 


MOV 


RO.KBPTR 


ADD 


#4,CSP) 


RTS 


PC 



jWILL HATCH S CHAPS. 

jCHAB HATCH? 

»BB IF NOT. 

J DONE? 

;BB IF NOT. 

J MODULE ADDB TO MODPTP, 

(SAVE CURRENT BIIF PPINTER. 

jSET UP SUCCESS EXIT. 

(EXIT. 
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228S 
2296 
2287 
2288 
2289 
3290 

2291 014140 005067 164746 

2292 014144 105067 165172 

2293 014150 000412 
2294 

2295 014152 105067 165164 

2296 014156 000403 
2297 

2298 014160 112767 000200 

2399 

2300 014166 016667 000002 

3301 014174 012616 

3302 014176 004467 000536 

3303 014302 016600 000014 

3304 014206 012501 

3305 014310 013703 000006 

2306 014314 060201 

2307 014316 105767 165120 
3308 014232 100003 

2309 014224 063701 000002 

2310 014230 010003 

2311 014232 042703 177770 

2312 014236 063703 000060 
3313 014342 110341 

2314 014244 042700 000007 

2315 014350 006000 

2316 014252 006000 

2317 014254 006000 

3318 014256 005302 

3319 014360 001363 

3330 014362 105767 165054 

3321 014366 100410 

2333 014370 016702 164616 

2333 014274 006303 

3324 014276 006202 

3325 014300 006202 
2336 014303 060303 
3327 014304 110311 
2328 014306 000425 
3329 

3330 014310 133767 000001 

3331 014316 001031 

2333 014330 016700 164566 

3333 014334 006300 

3334 014336 043700 177770 

3335 014333 060003 

3336 014334 110311 

3337 014336 016700 164550 

3338 014342 006200 

2339 014344 006200 

2340 014346 012703 000003 
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jOCTAL TO ASCII CONVERT ROUTINE. 

iCONVERTS ARGUMENT ON STACK TO ASCII, STOPES STPI'IG STARTING AT ADDRESS 

iGIVEN FOLLOWING THE CALL 

jEXTENDED ENTRY REQUIRES ADDITIONAL RRGU^«FNT ON STACK- AFTFR 

iPUSHING LOWER 16 BITS ONTO STACK, PUSH EA PITS (SHIFTED TO POS 4,5J 



OACNVt 



CLP OASCEA 
CLRB ATE 
BR CONVRT 



OACNVXl CLRB 



165154 OACNVSt MOVB 

164716 HOPI MOV 
MOV 
CONVRTi JSR 
MOV 
MOV 
MOV 
ADD 
TSTB 
BPL 
ADO 
3«t MOV 
BIC 
ADD 
MOVB 
BIC 
BOB 
ROR 
BOB 
DEC 
BNE 
TSTB 
BMI 
HOV 
A5B 
ASR 
ASB 
ADD 
MOVB 
BB 



165024 4(t 



BITB 

BNE 

HOV 

ASL 

BIC 

ADD 

MOVB 

MOV 

ASB 

ASB 

MOV 



ATE 
HOP 

«BIT7,ATE 

2(SP)»0ASCEA 

(SP)+,(5P) 

R4.SAV04 

12.(SP),R0 

(R5)+»P1 

t6,P2 

R2,P1 

ATE 

3» 

«2,R1 

P0,B3 

1177770. R3 

160, R3 

R3,-(Rn 

17, PO 

RO 

RO 

RO 

R2 

38 

ATE 

4t 

OASCEA, B2 

B2 

R2 

R2 

R3,B3 

R3,CRn 

5( 

tBiTO.ATE 
5* 

OASCEA, RO 

RO 

#177770, BO 

B0,B3 

B3.(R1) 

OASCEA, BO 

BO 

BO 

• 2,P2 



jCLEAP OUT UPPER BITS -- NOT USED 
SCLPAP 8 CHARACTER FLAG 
;CONTTNUE 

SCLFA" 8 CHARACTER FLAG 
•CONTINUE 

JSFT 8 CHARACTER FLAG 



jSAVE REGS 0-4. 
jGET OCTAL VALUE. 

tGET OEST AnDR. 
;5ET CONVERT COUNT TO 6. 
tDEVELOP ADDR TO STORE ] ST CHAR, 
»SET UP TO DO 8 CHAOACTERS ? 
;N0, CONTINUE 

SYES, ADD 2 TO THF ADDRESS 
SGET VALUE TO P3. 

rISOLATE LEAST SIGNIFICANT DIGIT. 
jCONVERT TO ASCII. 

iSTORP IT. 
iCLEAP DIGIT JUST CONVERTED, 
(SHIFT IN NEXT DIGIT. 



jPONE 6 DIGITS? 

jBR IF NOT. 

SSET UP TO no 8 CHARACTERS ? 

}YES, DO IT 



>G0 FINISH UP 

)ALL DONE ? 

lYES, OFT OUT 

J NO, LOAD UPPER NUMBERS TO BE CONVERTED 

ILINE UP BITS BELONGING TO LOWER NUMBER 

iGIT RID OF ALL OTHERS 

J ADD IT IN TO COMPLETE THE NUMBER 

J STORE IT 

»LOAD UPPER BITS AGAIN 

jGIT RID OF THE 2 BITS 

jJUST TAKEN CARE OF 

J SET UP TO DO THE LAST 2 CHARACTERS 
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2341 
2342 

2344 
234S 
2346 



014152 
01.4360 

014362 
014366 
014370 



152767 
000723 

004767 
012616 
000205 



000001 164762 



JSR 
MOV 
RTS 



SEQ 0083 



tBITO.ATE 
3lt 

PC,RST04 
CSP5+,(SP) 

R5 



jSET 'ALL DONE* FLAG 

jGO DO THE LAST 2 CHARACTERS 



IRESTORE REGS, THRU 4 
I 

J RETURN 
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2347 








jBINARV 


TO DECIMAL ASCII CONVERT ROUTINE. 


2348 








iCONVEPTS ARGUMENT ON STACK 


TO DECIMAL ASCII, STORES IT 


2349 








jSTARTING AT 


ADDRESS GIVEN AFTER THE CALL. 


2350 








I REMOVES ARGUMENT FROM STACK 


BEFORE RETURNING 


2351 
















2352 


014172 


0^4467 


000342 


BDCNVl 


JSR 


P4,SAV04 


SSAVE REGS 0-4. 


2353 


01417S 


016601 


000014 




MOV 


12.CSP),R! 


•GET BIN VALUE. 


2354 


014402 


012700 


026513 




MOV 


#OECVAL,P0 


;GET ADDR OF DECVAL STRING, 


2355 


014406 


012702 


014472 




MOV 


tTENPWR,R2 


JADDR OF TENPWR TO B2. 


2356 


014412 


112703 


000005 




MOV 


t5,R3 


;SET UP TO DO 5 CONVERSIONS. 


2357 


014416 


005004 




l«l 


CLR 


R4 


jCLEAR RESULT. 


2358 


014420 


161201 




2Sl 


SUB 


(R2)#R1 


:SUBTPACT TEN POWER, 


2159 


014422 


103402 






BCS 


3S 


|BR IF UNSUCCESSFUL. 


2360 


014424 


005204 






INC 


B4 


;ADD 1 TO RESULT. 


7J«t 


t»r4«26 


000774 






B" 


2S 


iW r- AGAl'v. 


2362 


014430 


062201 




39! 


ADD 


(R?!+.P1 


jRESTDR"^ SUBTSACTr.C V 


2363 


014432 


062704 


000060 




ADD 


«60.R4 


jMAKE IT ASCII, 


2364 


014436 


110420 






MOVP 


R4,(P0)+ 


(SAVE IT, 


2365 


014440 


005303 






DEC 


R3 


»DONE 57 


2366 


014442 


001165 






BNE 


It 


IBR IF NOT. 


3367 


014444 


012501 






MOV 


(R51 + ,B! 


• GET FTNSr, STORF SDDR 


2368 


014446 


012702 


000005 




MOV 


«5,R2 


iGET DIGIT COUNT DESIRED, 


2369 


014452 


060201 






ADD 


R2,R1 


SCOMPUTE ADDR OF 1ST DIGIT, 


2370 


014454 


1)4041 




4SI 


HOVB 


-(RO).-(RIJ 


JTRANSFER CHAR, 


2371 


014456 


005302 






DEC 


R2 


jDONE? 


2372 


014460 


001375 






BNE 


4S 


>BR IF NOT, 


2373 


014462 


004767 


000264 




JSP 


PC,RST04 


ZRESTORE REGS 0-4, 


2374 


014466 


012616 






MOV 


CSP14.,(SP5 




2375 


014470 


000205 






RTS 


R5 


JEXIT. 


2376 


014472 


023420 


001750 000144 TENPWRt 


lOOOO 


.>1000.>100.,10 


.>i 


2377 


014500 


000012 


000001 











QABH DEC/Xlt STANDARD MONITOR 
DXQABM.Pll 2J*APR>77 ni43 



3378 








3379 








3380 


014504 


042766 


170000 


3381 


014512 


000002 




3383 








3383 








3384 








338S 








3386 








3387 








3388 








3389 








3390 


014514 


004467 


000220 


3391 


014530 


016700 


164456 


3392 


014534 


016701 


164450 


3393 


014530 


012702 


000020 


3394 


014534 


006000 




3395 


014536 


006001 




3396 


014540 


103410 




3397 








3398 


014543 


042700 


010000 


3399 


014546 


032700 


002000 


3400 


014552 


001412 




3401 


014554 


052700 


010000 


3402 


014560 


000407 




3403 








3404 


014562 


052700 


010000 


340S 


014566 


032700 


002000 


3406 


014572 


001402 




3407 


014574 


042700 


010000 


3408 








2409 


014600 


005302 




3410 


014602 


001354 




3411 


014604 


010067 


164372 


3412 


014610 


010167 


164364 


3413 


014614 


004767 


000132 


2414 


014620 


000002 
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(RETURN TO KERNEL MODE 



SEQ 0085 



OOOOOS RTTK.I 



BIC 
PTI 



(170000r2CSP} 



I ROUTINE TO CALC NEXT RANDOM NUMBER, USES A 29 BIT SHIFT REGISTER 

» ALGORITHM, EXCLUSIVELY OR-ING THE 28TH AND 1ST(L0W ORDER) BITS 

I INTO THE 29TH BIT AS IT SHIFTS RIGHT, SHIFTS 16 TIMES EACH TIME 

I ITS CALLED. MODULES DO A RAND CALL THEN JUST REFERENCE RANNUM 

I WHICH IS DEFINED AS GLOBAL IN DDXCOM 



RAND. I 



JSR 


R4,SAV04 


MOV 


RANWRK.BO 


MOV 


RANNUM, PI 


MOV 


»16.,R2 


ROR 


RO 


ROR 


Rl 


BCS 


It 


BIC 


«10000,RO 


BIT 


#2000, PO 


BEQ 


2t 


BIS 


tlOOOOfPO 


BR 


2t 


BIS 


»10000,P0 


BIT 


»2000,R0 


BEQ 


2« 


BIC 


«ioooo,Re 


DEC 


R2 


BNE 


BLOOP 


MOV 


RO.PANWPK 


MOV 


Rl, RANNUM 


JSR 


PC,PST04 


RTI 





I SAVE THE REGISTEPS 

>GET UPPER BITS 

jGET LOWEP ORDER 16 BITS 

» SHIFT 16 TIMES 

» SHIFT RO INTO CARRY 

jSHIFT CARRY INTO R) , Rl INTO CARRY 

I FIRST HALF OF EX-OR PROCESS 

{ASSUME OLD BIT 28 WAS ALSO CLEAR 
;CHFCK THAT ASSUMPTION 
JBP IF BIGHT, ELSE 
IPUT BIT IN 
JGO SHIFT AGAIN 

J ASSUME OLD BIT 28 WASN'T ALSO SET 

;CHECK THAT ASSUMPTION 

:BP IF RIGHT 

JELSE 2 I'S ■ A ZERn BIT 

SDONE 16 TIMES? 

jBB IF NO 

J SAVE CnPRENT VALUES 

iBEiTORE REG'S 
jBFTURH FROM TRAP C»LL 
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SET ?0S6 



2415 






2416 






3417 






2418 






3419 






3430 






2431 


0)4622 


010046 


2422 


014624 


012500 


2423 


014626 


012046 


2424 


014630 


00*216 


2435 


014632 


006216 


2426 


014634 


006216 


2427 


014636 


006216 


3438 


014640 


006216 


3439 


014642 


no6216 


3430 


014644 


042716 176000 


3431 


014650 


011660 000002 


3432 


014654 


012016 


2433 


014656 


000316 


2434 


014660 


006216 


2435 


014662 


006216 


2436 


014664 


052610 


2437 


014666 


012600 


2438 


014670 


00020! 



iSUBROUTINE TO GET PAGE ADDRESS FIELD VALUE (THp (2 BITS OF ADDRESS) 

fCALL VIA) 

I JSR R5,T0P12S 

J ADDRESS OF TABLE CONTAINING LOiJEB 16 BITS, TOP 7 PITS (SHIFTED), 

I AND SLOT FOB RETURNED V5LUE OF ADDRESS 

jSAVE THE OLD VALUE OF RO 

sGET THE ADDBESS OF THE TABLE-PUT IT IN RO 

S FETCH THE ADnPESS TO BE ACTED ON TO THE STACK 

(ELIMINATE THE SIX LOW ORDEP BITS. THIS 0«iE DPOPS BITO 

jTHIS ROTATION DROPS BITl 

(THIS ROTATION DROPS BIT2 

JTHIS ROTATION DROPS B1T3 

(THIS ROTATION DROPS BIT 4 

(AND THIS ROTATION DROPS BITS 

(ISOLATE THE 12 HIGH ORDER BITS IN THE LOWEP 

(SAVE THE 12 HIGH ORDEP BITS IN THE TABLE'S 3PD ENTBY 

(FETCH THE EXTENDED ADDRESS BITS FROM THE 2'<0 EITPY 

(MOVE THE BITS TO BIT POSITIONS 6+7. FIRST. TO 8+9, 

(THEN MOVE THEM TO 7 + 8 

(FINALLY ROTATE THEM TO 6 + 7 

(ADD THE EXTENDED ADDRESS BITS TO THE 3KD EMTRY 

(RESTORE THE OLD VALUE OF RO 

(RETURN TO THF CALLING PROCEDURE 



T0P12S( MOV 


RO,-(SP) 


MOV 


(P5)+,R0 


MOV 


(RO)+,-(SP) 


ASR 


(SP) 


ASP 


(SP) 


ASR 


(SP) 


ASR 


(SP) 


ASR 


(SP) 


ASP 


(SP) 


BIC 


#176000, (SP) 


MOV 


(SP),2(R0) 


MOV 


(R0)+i(SP) 


SHAB 


(SP) 


ASR 


(SP) 


ASR 


(SP) 


BIS 


(SP)+,(RO) 


MOV 


(SP)+,RO 
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3439 

3440 
3441 
3443 
3443 
3444 
344S 

3446 014673 010046 

3447 014674 010146 

3448 014676 OOSQOl 

3449 014700 013S46 

3450 014703 013700 000006 

3451 014706 006316 
34S3 014710 006101 
3453 014713 005300 
3494 014714 001374 

3455 014716 006301 

3456 014730 006301 

3457 014733 006301 
3456 014734 006301 
3459 014736 012635 
24S0 014730 010135 
3461 014733 012601 
3463 014734 013600 
3463 014736 000305 
3464 
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ROUTINE TO GET THE 18 BIT PA TPOM THE 12 BIT PAF 

CALL VIA 

JSP R5fT018S 

ADDRESS or 12 BITS 

DEST ADDRESS OF LQK 16 BITS 

DEST ADDRESS OF SHIFTED EA BITS 



T018SI MOV 


R0,>(SP) 


MOV 


Hi,-CSP5 


CLR 


Rl 


MOV 


fCR5)+.-CSP) 


MOV 


#6,P0 


Iti ASL 


(SP) 


ROL 


HI 


DEC 


SO 


BNE 


1« 


ASL 


Rl 


ASL 


Rl 


ASIi 


PI 


ASL 


Rl 


MOV 


tSP3 + .(iCP51 + 


MOV 


Rl,PtR5)+ 


MOV 


(SP)+,R1 


MOV 


(SP)+.RO 


rT8 


S5 
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2465 






2466 






2467 


014740 


010346 


2468 


014742 


010246 


2469 


014744 


010146 


2470 


014746 


010046 


2471 


014750 


010407 


2472 






2473 






2474 






2475 


014752 


012604 


2476 


014754 


012600 


2477 


014756 


012601 


3478 


nt4760 


013693 


2479 


014762 


012603 


2480 


014764 


000204 
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jSAVE REGS 0-4 SUBROUTINE. (CALL VIA JSR P4»S»V04) 
SAV04t 



SEQ 0088 



MOV 


R3,-(SP) 


ISAVE R3 


MOV 


R2,-(SP) 


jSAVE R2 


MOV 


R1,-(SP) 


jSAVE Rl 


MOV 


RO,-(SP) 


(SAVE RO 


MOV 


R4,PC 


jR4 IS ALREADY SAVED 


■ PEGS 


0-4 SUBROUTINE, 


(CALL VIA JSR PC,RST04 


MOV 


(SP)+,R4 


J RETURN ADDRESS 


MOV 


(SPU.RO 


fPESTORE RO 


MOV 


(SP)+,R1 


IRI 


MOV 


f»B?*,P'3 


iri 


MOV 


(SP)+,P3 





J RESTORE R4 AND RETURN 
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MACYll 



24B1 








2482 








2463 


014766 


012700 


001006 


2484 


014772 


012701 


000154 


2485 


014776 


105020 




2486 


015000 


005301 




2487 


015002 


001375 




2488 


015004 


012700 


037353 


2489 


015010 


010067 


164060 


2490 


015014 


010067 


164056 


2491 


015030 


012767 


030072 164052 


2492 


015026 


012767 


030073 164046 


3493 


015034 


013701 


001750 


3494 


015040 


105030 




3495 


015042 


005301 




3496 


015044 


001375 




3497 


015046 


000207 
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iCLEAR VARIABLES AND QUEUESr AND LOAD TRAP CATCHER STARTING AT 70 

ICLEAR VARIABLES. 



SES 0089 



CLRQUSi MOV 
MOV 

]Sl CLRS 
DEC 
BNE 
MOV 
MOV 
MOV 
HOV 
MOV 
MOV 

3$i CLRB 
DEC 
BNE 
RTS 



•lOQUEjPO 

»TKS'I0QUE,R1 

(P0) + 

PI 

IS 

lIOQfRO 

RP.IOQl 

R0.IOQ2 

#TYPEQ,TYPQ1 

#TYPEQ,TyPQ2 

»lbQL+TYPQL,Rl 

CRO) + 

Rl 

33 

PC 



t INITIALIZE QUEUE POINTERS 



»SET UP TO CLEAR QUEUES, 



jDONE? 

JBP IF NOT. 
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2498 
2499 
3500 
3501 
3503 
3503 
2504 
3505 
3506 
2507 
3508 
3509 
3510 
3511 
3513 
3513 
3514 
3515 
3516 
3517 
3518 
3519 
3530 
2531 
3533 
3533 
3534 
3535 
3536 
3537 
3538 
2539 
3530 
3531 
3533 
3533 
3534 
3535 
3536 
3537 
3538 
3539 
3540 
3541 
3543 
3543 
3544 
3545 
3546 
3547 
3548 
3549 
3550 
3551 
3553 
3553 
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(LOAD TRAPCATCHER IN VECTOR AREA 



015050 
015054 
015060 
015064 
015070 
015072 
015074 
015076 
015100 
015104 
015106 
015114 
015133 
015136 
0)5133 



015134 
015136 
015143 
015144 
015146 
015152 
015156 
015160 
015163 
015164 
015170 
015174 



015176 
015176 
015176 
015300 
015200 
015203 
015202 
015204 
015304 
015206 
015306 
015310 
015210 
015313 
015212 
015214 
015214 
015316 
015316 
015230 
015230 
015233 



013746 
013746 
012700 
013701 
010021 
005021 
010100 
005720 
020037 
001371 
013767 
013767 
013637 
013637 
000307 



010046 
016600 
014000 
006300 
063700 
030037 
103003 
OUOOO 
000300 
104406 
104406 
000000 
OUOOO 
000000 



005736 
006376 
006333 
006333 
006156 
006156 
006244 
006366 
006156 
006232 



000200 
000202 
000073 
000070 



001003 

015672 
000340 
000203 
000300 



004176 
015246 



023040 
033746 



163000 
162774 



CLRVECl MOV 
MOV 
MOV 
MDV 

1S« MOV 
CLR 
HOV 
TST 
CMP 
BNE 
MOV 
MOV 
HOV 
MOV 
PT5 



«riLL VECTOR AREA WITH ,+2 
JAND HALT. 



9»300,-(SP) 
91202, -CSP) 
»73rR0 
»7o,Rl 
RO, (Rl)+ 

tRn + 

Rl.PO 

(R0) + 

R0,«1002 iFILLED UP? 

IS |BP IF NOT. 

IPABERRjPARVCT }RESTORE PARITY VECTOR 

#PRTY7,PAPVCT+3 jAND THE PRIORTY 

(SP)+,9»303 

CSP)+,a#300 (PRESERVE LP VECTOR 

PC lYES. EXIT. 



(TRAP INTERPRETER ROUTINE, 



TRPINTi MOV 
HOV 
MOV 
ASL 
ADD 
CMP 
BHIS 
HOV 
RTS 



RO.-CSPJ (PUSH RO, 

2(SP)fR0 jCET TRAP PC, 

-CROJrRO jGET TRAP CALL, 

RO I MULTIPLY BY 3, 

tTRPTAB-TRP2,R0 ;FORM TABLE ADDRESS 
RO,»TRPLIM (WITHIN LIMITS? 



IS 

ePO,RO 

PO 



TRPTABt 



MSGS.INVTRP 

MSG$,HLT 

HALT 

TRP2«11000 

TRAPXaO 



;BR IF NOT. 

iGET POUTINF ADDRESS 

jGO TO ROUTINE. RFSTORE RO. 

(ERROR INVALID TRAP CALL. CRASH SYSTEM, 

('HALT' 



TRPDEF EXITS, EXIT. 

EXIT. 

TRPDEF OUESrQUE, 

QUE. 

TRPDEF ENDPSS,TYPQ, 

TYPO. 

TRPDEF ENDS, TYPO, 

TYPO. 

TRPDEF ERRORS, TYPQ2, 

TYPQ2, 

TRPDEF DATERS,TYPQ2, 

TYPQ2. 

TRPDEF H8GS,TYP01, 

TYPQl. 

TRPDEF BREAKS, LDBRK, 

LDBPK. 

TRPDEF ERRNS»TYPQ2, 

TyP02. 

TRPDEF MSGNS.TYPQ, 

TYPO, 

TRPDEF GWBUrS,GWBUF, 



(POINTER FOP TRAP CALL EXITS 
(POINTER FOR TRAP CALL QUES 
(POINTER FOR TRAP CALL ENDPSS 
(POINTER FOR TRAP CSLL ENDS 
(POINTER FOR TRAP CALL ERRORS 
(POINTER FOR TRAP OLL DATERS 
(POINTER FOR TRAP CALL MSG8 
(POINTER FOR TRAP CALL BREAKS 
(POINTER FOR TRAP CALL ERRN6 
(POINTER FOR TRAP CALL MSGNS 
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2554 


015222 


021150 


2555 


015224 




2556 


015224 


021272 


2557 


015226 




2558 


015226 


007636 


2559 


015230 




2560 


015230 


021426 


2561 


015232 




2562 


015232 


006232 


2563 


015234 




2564 


015234 


007626 


2565 


015236 




2566 


015236 


014514 


2567 


015240 




256B 


015240 


006056 


2569 


015242 




2570 


015242 


006010 


2571 


015244 




2572 


015244 


014504 


2573 


015246 





GWBUr, 




jPOINTER 


FOR 


TRAP 


CALL 


GWBUFS 


TRPDEF 


GETPAS. GETPA, 












GETPA, 




(POINTER 


FOP 


TRAP 


CALL 


GETPAI 


TPPDEr 


CDATA8, CDATA. 












CDATA. 




(POINTER 


FOR 


TRAP 


CALL 


CDATA8 


TRPDEF 


MAP228,HAP22, 












MAP22. 




JPOINTER 


FOR 


TRAP 


CALL 


MAP22S 


TRPDEF 


MSGSS.TYPQ. 












TYPQ. 




JPOINTER 


FOR 


TRAP 


C»LL 


>"ses« 


TRPDEF 


DATCK», DATCK. 












DATCK. 




(POINTER 


FOR 


TRAP 


CALL 


DATCKS 


TRPDEF 


RANDS, RAND. 












RAND, 




(POINTER 


FOR 


TRAP 


CALL 


RANDS 


TRPDEF 


DERRXS,TYPQ3. 












TYPQ3. 




(POINTER 


FOR 


TRAP 


CALL 


DERRX8 


TRPDEF 


»<SGD»,TyP04. 












TYPQ4. 




IPOIKTER 


FOR 


TRAP 


CALL 


HSGDS 


TRPDEF 


RTTK$,RTTlf, 












RTTK. 




(POINTER 


FOR 


TRAP 


CALL 


RTTKS 


TRPLIMl 
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2574 








2575 








2576 








2577 








2579 








2579 


015246 


012746 


000004 


2580 


015252 


000413 




2581 


01S254 


042737 


000001 


2582 


015262 


104406 


024050 


2583 


015266 


104406 


023746 


2584 


015272 


000000 




2585 


015274 


000776 




2586 








25 87 








2588 








2589 








2590 


015276 


012746 


000010 


2591 


P15302 


000240 




2592 


015304 


010605 




2593 


015306 


012706 


027252 


5594 


01S312 


012546 




2595 


015314 


010546 




2596 


015316 


016546 


000002 


2597 


015322 


011546 




2508 


015324 


012706 


027212 


2599 


015330 


004767 


002152 


2600 


015334 


004767 


002774 


2601 


015340 


004767 


171640 


2602 


015344 


105267 


163714 


2603 


015350 


105767 


163751 


2604 


0)5354 


001005 




2605 


015356 


105767 


163722 


2606 


015362 


001402 




2607 


015364 


004767 


004104 


2608 


015370 


012706 


027242 


2609 


015374 


005067 


163460 


2610 


015400 


Iir767 


ooooni 


2611 


015406 


104406 


023601 


2612 


015412 


012705 


013426 


2613 


015416 


004715 




2614 


015420 


004715 




2615 


015422 


004715 




2616 


015424 


004715 




2617 








2618 


015426 


O12706 


027212 


2619 


015432 


132767 


000002 


2620 


015440 


001404 




2621 


015442 


104406 


023420 


2622 


015446 


004767 


000360 


2623 


015452 


104406 


022737 


2624 


015456 


000435 
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(BUS ERROR AND RESERVED INSTRUCTION TRAP ROUTINES 

(CHECK MODE BITS OF PSW ON STACK (MAYBE USER IF KTl 1 IN USEJ 

(ORDER OF ARGUMENTSI VIRTUAL PC ON STACK, PSW ON STSCK, STACK POINTER 

(AFTER TRAP, VIRTUAL ADDRESS TRAPPED TO 



SEO 0092 



177572 



BUSERRj MOV 

BR 
KTEPR( 



»4,-(SP) 
BR PESIA 
BIC «1,9«SSR0 
MSGS,KTFATL 
MSGS.HLT 
HALT 
BR ,-2 



RESINTi 


HOV 


»10,-CSP) 


RESIA! 


NOP 






MOV 


SP,R5 




MOV 


tSPSPECSP 




MOV 


CR5)+»-(SP) 




MOV 


B5,-CSP) 




MOV 


2CR5),-CSP3 




MOV 


('>5),-C5P) 




MOV 


#SPBOT,SP 




JSP 


PC.SAVLOG 




JSR 


PCCLKOFF 




JSR 


PCCTRLX 




INCB 


SYSCNT 




TSTB 


MOVING 




BNE 


It 




TSTP 


KTPRES 




BEO 


It 




JSR 


PCMVCODE 


ISI 


MOV 


ISPSPEC-10,SP 




CLP 


lOBKID 




MOVB 


«1, BRAKE 




MSGti 


iSYSERR 




MOV 


tIT0A,R5 




JSR 


PC,CR5) 




JSR 


PC.CRS) 




JSR 


PC.tRS) 




JSR 


PC,(R5) 




MOV 


•SPBQT,SP 




BITB 


tBlTl.PPRES 




BEO 


2S 




MSG8, 


SYSERl 




JSR 


PC.PAM5G1 


2(> 


HSGt, 


DOT 




BR 


PWRUA 



J INDICATE BUS ERROR TRAP. 

(TURN OFF KTll 

J 'Kill ABORT . FATAT • 

('HALT' 

(KTll ABORT- FATAL "CRROR 

(EXAMINE Kill SSRO TO DETERMINE TYPF OF ABORT, 

(WJOEr »Nn P«<JE RrTrRfNCPO 

(FXAMINE KT11 SSP2 TO DFTFRMINE VTRT'.'Al 6'^DoESS 

(OF INSTRUCTION WHICH ABORTED 

(INDICATE RESERVED INSTRUCTION TRAP, 

(SAVE THE STACK POINTER, 

I PUT INFOBRATION INTO SPECIAL MONITOR STACK 

[PUSH TRAP VECTOR ON STACK 

(OUSH STACK POINTER ON STACK 

(PUSH THE PSW OM STACK 

(PUSH THE PC ON STACK 

(RESTORE MONITOR STACK POINTER 

(GO SAVE 11/60 LOG v************************ 

(TURN OFF CLOCK AND SAVE STATUS 

(CLEAR QUEUES, CLEAN UP, HAP TO BANKS 0+1 

(COUNT A SYSTEM ERROR 



(MAP BACK TO CURRENT COPY 

(SET up THE SPECIAL STACK POINTER 

(ALLOW TYPING 

(PREVENT MODULE STARTUP DURING MESSAGE 

(TYPE SYS ERROR FAILURE. 

(TYPE ERR PC. 

(TYPE ERR PSW, 

(TYPE SP AFTER ERROR 

(TYPE TRAP VECTOR ADDRESS 

(RESTORE MONITOR STACK POINTER 

(IS IT AN 11/60 7 •••»*•*»••#•#••#••#»••#♦»#•••♦ 

(NO, CONTINUE 

(YES, TELL WHAT LOG REGS, ARE PRINTED 

(GO FINISH UP MESSAGE 

(TYPE CRLF AND DOT 

(ATTEMPT TO CONTINUE 
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SSQ ftQ9J 













iPONER 


DOWN AND POWER UP ROUT 




















01S4«0 


004767 


003680 




PWBDNi 


J8R 


PCCLKOrr 




01S464 


105767 


163614 






T8TB 


KTPRES 




015470 


001403 








BEQ 


11 




018473 


008037 


177573 






CLR 


*«8SR0 




015476 


013767 


018506 


163320 


Hi 


HOV 


»PWBUP,PMRrV 




01SS04 


000000 








HALT 






015S06 


013767 


015460 


163310 


PWPUPl 


MOV 


IPHBONfPWRFV 




015514 


013706 


037313 






HOV 


ISPB0T>R6 




015530 


005367 


163543 






INC 


PWRCNT 




015534 


105067 


163576 






CLRB 


RUMPri 




015S30 


004767 


171480 






JSP 


PC.CTRLX 




015534 


005067 


163330 






CliB 


lOBKID 




015540 


113''67 


000001 


163348 




HOVB 


11, BRAKE 




01SS46 


104406 


033703 






H5C$, 


PWRFAI 




015553 








PHRUAl 








015553 


105767 


163836 






TSTB 


KTPPES 




015556 


001413 








BEO 


11 




015560 


043737 


OOOOOl 


177873 




BIC 


tl.OtSSRO 




015566 


116701 


163473 






HOVB 


SYSCNT.Pl 




015573 


053737 


OOOOOl 


177873 




BIS 


t],9|SSR0 




015600 


110167 


163460 






MOVB 


RlfSYSCNT 




015604 


136767 


163840 


163483 


1(1 


CMPB 


SYStlMfSYSCNT 




015613 


101004 








BHI 


3« 




015614 


104406 


034148 






HSCI, 


SYSBAO 




015630 


000167 


171330 






JHP 


CTRLCA 




018634 


133767 


000003 


163806 


3ti 


BITB 


tBITl.PPRES 




015633 


001413 








BEO 


31 




018634 


013767 


100001 


163633 




MOV 


flOOOOlrLCHOLI 




015643 










WRITE 


pnwHMIiWTWHMI 




015643 


010046 








MOV 


PO,-CSP) 




015644 


076600 


000033 






MED.PDWHHI 




015650 


056700 


163630 






BIS 


LSHOLD,R0 




015654 


076600 


000333 






HED.WTWHMI 




015660 


013600 








HOV 


C5P)+,B0 




015663 


105767 


163433 




3ti 


TSTB 


RMODE 




015666 


00113* 








PNC 


LOfllCA 




015670 


onosos 








BP 


CHMOUT 



(TURN OFF CLOCK AND SAVE STATUS 

iKTll IN USE T 

|N0, CONTINUE 

jYES, TURN IT OFF 

I SET UP POWER UP VECTOR, 

(POWER DOWN HALT 

J SET UP POWER DOWN VECTOR, 

(RESET STACK, 

(COUNT A POWER FAIL 

(CLEARRESUME RUN FLAG 

(CLEAR QUEUES AMD INITIALIZE KTll If IN USE. 

(ALLOW TYPING 

(PREVENT MODULE STARTUP 

(TYPE POWER FAILURE MESSAGE, 

(KTU IN USE ? 

(NOf CONTINUE 

lYESi BACK TO LOW BANK 

(SAVE THE SYSTEM ERROR COUNT 

(BACK TO HIGHER BANK 

(PUT SYS ERR COUNT IN THIS MEMORY BANK 

(REACHED THE SYS, ERR, LIMIT 7 

(NO, CONTINUE 

("EXERCISE ABHPTED" 

(CTRL C AND KILL THE EXERCISE 

(IS THIS AN 11/60 ? «••«•«»«*•••••«••**«••»•«*•« 

(NO, CONTINUE 

(YES, LOAD ERROR LOG ENABLED BIT 

jWpITE WHAMI REGISTER 

(SAVE REG, 

(SAVE 



(PE.''TORF PEG. 
(WERE WE IN RUN MODfTT 
(BR IF YES TO RESTART, 
(NO, CONTINUE 
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SEO 0094 



3664 
3665 








(PARITY 


■ ERROR 


; TRAP HANDLER ] 


3666 


015672 


0226!« 




PARERR: 


CMP 


csp^-ffcsp}* 


3667 


015674 


004767 


003434 




JSR 


PCCLKOFF 


3668 


015700 


132767 


OOOOOl 


163432 


BITB 


• BITCPPPES 


3669 


015706 


001002 






BNE 


7t 


2670 


fttS710 


QCOOOO 




lt{ 


HALT 




3671 














2672 


015712 


00077* 






BR 


1 g 


3673 














3674 


015714 


133767 


000003 


163416 3tl 


BITB 


»B1T1,PPRES 


3675 


015733 


001405 






BEQ 


31 


3676 


015734 


104406 


035437 




MSG«, 


PERR2 


3677 


015730 


004767 


000076 




JSP 


PC,PAMSG1 


2678 


015734 


000706 






BR 


PWRUA 


3679 














3660 


015736 


012700 


O0143O 


3«{ 


MOV 


(PARTAB,R0 


2681 


015742 


005001 






CLR 


Rl 


3683 


015744 


005770 


000000 


4I( 


TST 


RCPOJ 


3683 


018750 


100407 






BMI 


6> 


3684 


015753 


005730 






TST 


tPO) + 


3685 


015754 


005201 






INC 


Rl 


3686 


015756 


136701 


163357 




CMPB 


CNT1,R1 


2687 


015762 


003365 






BGT 


3$ 


3688 


015764 


000000 




5I{ 


HALT 




3689 














3690 


015766 


000776 






BR 


5$ 


3691 














3693 


015770 


004767 


000003 


6(i 


JSR 


PCPSWSI? 


3693 


015774 


000666 






BR 


PWPUA 



(POP THE STACK POINTER TWICE 
(MAKE SURE SYSTEM CLOCK IS OFF 

(IS PARITY PRESENT/ENABLED ? 
(YES, CONTINUE 

(NO PAPITY BUT TRAPPED ANYWAY 
(RUN PARITY DIAGNOSTICS 
(KEEP HALTING IF HE HITS CONTINUE 



(IS IT AN 11/60 7 

(NO, CONTINUE 

( "PARITY ERROR" 

(GO FINISH PARITY ERROR MESSAGE 

(ATTEMPT TO KEEP GOING 

(GET ADDRESS OF P,ARTTY ADDRESSES 

(ZERO THE REGISTER COUNTER 

(ERROR BIT SET ? 

(YES, GO REPORT IT 

(STEP TO THE NEXT RFGISTER ADDRESS 

(STEP THE REGISTER COUNTER 

(ALL REGISTERS CHECKED 7 

(NO, CONTINUE 

(YES, TRAPPED BUT NO ERRORS SET 

(RUM PARITY DIAGNOSTICS 

(KEEP HALTING IF HE HITS CONTINUE 



«»•«*«««••«•««*•»««•••«*«««««« 



(GD PRINT PAPITY ERROP 
(ATTEMPT TO KEEP GOING 



'ESSAGF, 
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SCO 0095 



3694 

3696 
2697 
3698 
3699 
3700 
3701 
2703 
3703 
2704 
2705 
2706 
3707 
3708 
2709 
2710 
2711 
2712 
2713 
2714 
2715 
2716 
97t 7 
2718 
2719 
2720 
2721 



015776 
016000 
016004 
016010 
016012 
016016 
016022 
016024 
016030 



016032 
016036 
016042 
016046 
016050 
016054 
016056 
016062 
016066 

016073 
016076 
016103 



011046 
012746 
004567 
025350 
017046 
004567 
025357 
104406 
000207 



004767 
012702 
013701 
013346 
004567 
035675 
012746 
004767 
005301 

012746 
004767 
000307 



000060 
176143 



000000 
176U6 



001450 
031633 
000010 



025675 
171300 



032772 
171264 



iPARITY ERROR HESSAQE ROUTINE, 
atBTTv Dr/iTCTrD ra Tu da 



PAMSGl 


MOV 


CR03f-(SP) 




MOV 


t60,-CSP) 




JSR 


RS.OACHVX 




PREG 






HOV 


•CP0),-CSPJ 




JSR 


R5,0AC»V 




PCONT 






MSCI.PERRl 




RT8 


PC 


PAMSGli 


JSR 


PCfSAVLOG 




MOV 


#LOGBUP't'200>R2 




MOV 


tlOfRl 


iti 


MOV 


(R3)+»-(8P) 




JSR 


RS.OACNV 




H0LD6 






MOV 


•H0LD6,-(SP) 




JSR 


PC* TYPE 




DEC 


Rl 




BNE 


1« 




MOV 


IACR1.F,-(SP) 




JSR 


PC, TYPE 




RTS 


PC 



ASSUMES TM4T THE JDIRESS OF THE TAIsjING 



»get address of failing parity peg, 

»load the ea bits 

fconvert it to octal ascii 

i put it into loc. preg 

jget contents of failing parity reg, 

iconvert it to octal ascii 

j put it into loc. pcont 

> "parity error -- run parity diag." 

» RETURN 



tSAVE ERROR LOG IN BUFFER ••••••••«••••««•*•»«••«•« 

jGET ADR, OF SERVICE REGISTER (100*23 

tSET THE COUNTER 

J PUT CONTENTS OF LOG REG, ON STACK 

fCONVERT IT TO OCTAL 

(AND PUT IT HERE 

J PUT IT ON THE STACK 

.jijn Tvpr JT 

{ALL DONE ? 

jNOs COKTTNUE 

(PUT A CR AND LF ON THE STACK 

fAND TYPE IT 

(RETURN 
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SEQ 0096 



2722 










iROUTINE TO EXIT TO CHAIN MON 


2733 










1 PROGRAM SHOULD 


ALWAYS BE IN 


2724 
















2735 


016104 


105767 


163202 




CHNOUTt 


TSTB 


CHN 


3736 


016110 


100403 








BHI 


IS 


2727 


016112 


000167 


172530 






JMP 


COMCON 


2728 


016116 


105767 


163162 




ist 


TSTB 


KTPPES 


2729 


016123 


001403 








BEQ 


2t 


2730 


016124 


005037 


177572 






CLR 


»iSSPO 


2711 


016130 


016700 


161706 




3t| 


MOV 


42, PO 


2733 


016134 


004710 






LOGIC 1 


JSR 


PC.CRO) 


3733 


016136 


000240 


000240 


000340 




.WORD 


NOP, NOP, NOP 


2734 


016144 


105767 


163142 




LOGICAl 


TSTB 


CHN 


77 J5 


msiso 


twoors 








BPL 


3« 


3736 


0161S3 


los^e? 


163114 






TSTB 


KTSAV 


37 37 


016156 


001412 








BEQ 


41 


2738 


016160 


016767 


163U0 


163040 




HOV 


HCP13A,HCOR12 


2739 


016166 


016767 


163102 


163044 




MOV 


HCR12A,0FFHX 


2740 


016174 


105267 


163113 






INCB 


ROTI 


3741 


016900 


105267 


163111 






INCB 


RELOC 


3742 


016304 


0127S7 


000001 


163100 


411 


MOV 


#1,CHN 


37*3 


016312 


016767 


163054 


163064 




MOV 


KTSAV, KTPPES 


2744 


016220 


105767 


163060 




3IS 


TSTB 


KTPRES 


2745 


016224 


001420 








BEO 


5« 


2746 


016336 


032737 


000001 


177573 


Itt 


BIT 


*l,9tSSR0 


2747 


016334 


001005 








BNE 


2t 


2748 


016J36 


004767 


173552 






JSP 


PC,KTINIT 


2749 


016342 


012737 


000001 


177573 




MOV 


fl,>*SSRO 


2750 
















3751 
















2752 


016350 


016767 


163766 


162766 


2tl 


MOV 


OFFSET, OFfSID 


2753 


016356 


004767 


003213 






JSR 


PC.MVCODE 


2754 


016362 


004767 


003130 






JSR 


PC.CLKON 


2755 


016366 


105767 


163030 




511 


TSTB 


CHN 


2756 


016272 


001403 








BEQ 


6* 


2757 


016374 


000167 


163334 






JMP 


START 


2758 


016300 


000167 


172630 




6*1 


JMP 


RUNPES 



OR RETURN TO KYBD RTN, 



jIN CHAIN MODE? 

>BR IF YES. 

jBACK TO KYBD SERVICE, 

jBRANCH IF NO KTU 
J TORN OFF KTll 

(RETURN TO MONITOR, 

slN CHAIN MODE? 

mi'. IF NO 

(YES, KT REALLY PRESENT? 

(BR IF NOT 

(SET REAL MEMORY SIZE 

(TOP ALLOWABLE PROGRAM OFFSET 

(ALLOW WBUFF ROTATION 

t ALLOW CODE RELOCATTON 

(ONLY RETIRN TO CHAIN MONITOR ONCE 

(TELL THE TRUTH 



(KTU ALREADY ON? 
(YES-SKIP REINITIALLIZING 



(TURN CLOCK ON 
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2759 










1 SUBROUTINE TO 


ROTATE WRITE B' 


2760 
















2761 


O16304 


105767 


163003 




ROTBUri 


! TSTB 


ROTI 


2762 


016310 


001557 








BEQ 


BOTXT 


2763 


016312 


105767 


162776 






TSTB 


ROTL 


2764 


016316 


100016 








BPL 


IS 


2765 


016320 


105767 


163003 






TSTB 


LOCK 


2766 


016324 


001013 








BNE 


It 


2767 


016326 


005367 


162764 






DEC 


ROTCNT 


2766 


016332 


003146 








BST 


ROTXT 


2769 


016334 


105767 


163012 






TSTB 


NSTOP 


2770 


016340 


001002 








BNE 


lot 


2771 


016342 


105267 


162456 






INCB 


STOP 


2772 


016346 


016767 


162746 


162742 


lOtI 


MOV 


ROTNUM, ROTCNT 


2773 


016354 


105767 


162444 




111 


TSTB 


STOP 


2774 


016360 


001133 








BNE 


ROTXT 


2775 


016362 


105767 


162726 






TSTB 


ROTL 


2776 


016366 


100530 








BMI 


ROTXT 


2777 


016370 


105767 


162425 






TSTB 


MDXCTR 


2778 


016374 


100525 








BMt 


ROTXT 


2779 


016376 


016746 


162630 






MOV 


WBUFf-CSP) 


2780 


016402 


042716 


160000 






BIC 


ll60000i(SP) 


2781 


016406 


022726 


016000 






CMP 


»16000,(SP)+ 


2782 


016412 


003016 








BGT 


3t 


2783 


016414 


105767 


162401 






TSTB 


MDXCTR 


2784 


016420 


001403 








BEQ 


2t 


2785 


016422 


105367 


162706 






DECB 


IGWBFC 


2786 


016426 


001110 








BNE 


ROTXT 


2787 


OJ6430 


116767 


162366 


162363 


2«( 


MOVB 


MDXCNT,"DXCTR 


2788 


016436 


116767 


162367 


162670 




MOVB 


ROTCT.SGWBrC 


2789 


016444 


105167 


162353 






COMB 


WBFLG 


2790 


O164S0 


026767 


162562 


162564 


3$l 


CMP 


WBUF12, OFFSET 


2791 


016456 


101453 








BtOS 


ROTLOl 


2792 


016460 


062767 


000020 


162550 




ADD 


»20.WBUri2 


2793 


016466 


026767 


162544 


162532 




CMp 


WBUF12,HC0R12 


2794 


016474 


103427 








BLO 


R0TB2 


2795 


016476 


000400 








BR 


4t 


2796 


016500 


026727 


162536 


000400 


4tl 


CMP 


OFFSET, #400 


2797 


016506 


103403 








BLO 


ROTBl 


2799 


016510 


004767 


000136 






JSR 


PCPOTLOW 


2799 


016514 


000455 








BR 


ROTXT 


2800 


016516 


105767 


162573 




ROTBlt 


TSTP 


PFLOC 


2801 


016522 


001426 








BEQ 


R0TB3 


2802 


016524 


105767 


162577 






TSTB 


LOCK 


2803 


016530 


001023 








BNE 


R0TP3 


2804 


016532 


105767 


162614 






TSTB 


NSTOP 


2805 


016536 


001002 








BNE 


IS 


2806 


016540 


105267 


162260 






INCB 


STOP 


2807 


016544 


162767 


000020 


162464 


iSi 


SUB 


*20rW8UF12 


2808 


016552 


000436 








BR 


ROTXT 


2809 


016554 


062767 


002000 


162450 


B0TB21 


ADD 


12000, WBUF 


2810 


016562 


103003 








BCC 


IS 


2811 


016564 


062767 


000020 


162442 




ADD 


t20,WBFEA 


2812 


016572 


004767 


173130 




l»l 


JSR 


PC.SETWBl 


2813 


016576 


000424 








BR 


ROTXT 


2814 


016600 


004767 


173040 




R0TB3I 


JSR 


PC.SETWBF 



FEPS IF ROTI INDICATOR m\ , 

fROTATION ALLOWED? 

»BR IF NOT, 

lis ROTATION LOCKED 7 

(NO, CONTINUE 

tYES, is the PROGRAM LOCKED ? 

jYES, DON'T SET STOP 

»N0, TIME TO RELOCATE 7 

;N0, CONTINUE 

J ALLOW STOP TO SET T 

jNO, CONTINUE 

;YES, SET THE STOP FLAG 

; RESTORE THE COUNTER 

J IF STOP IS SET, DON'T ROTATE 

J ROTATE LOCKED? 

J BR IF YES 

;IF COUNTER NOT INITIALIZED, DON'T ROTAYE 

SCHECK CURRENT VALUE 



JIF NOT LAST IN BANK, BRANCH 

:HAVE ALL MODULES USED A VALUE IN THIS BANK? 

JYES- TIME TO CHANGE BANKS 

|N0, DEC TIMEOUT COUNTER 

JEXIT UNLESS TIMEOUT HAS OCCURRED 

.•RESET COUNTERS 

(TOGGLE INDICBTOP 

;LOCDPE POTATION? 
!YES- BRANCH 

jCHECK FOR TOP OF WPITE BUFFER AREA 

jIF NOT, BRANCH 

(IF OVER, START AGAIN 

(ROTATE THRU MEMORY BELOW PROGRAM IF ENOUGH ROOM 

(NOT ENOUGH ROOM 

(SETUP TO ROTAT^; BELOW PROGRAM 

(RETURN 

(RELOCATION ALLOWED? 

(NO- BRANCH 

(LOCKED? 

(YES- BRANCH 

(ALLOW STOP TO SET ? 

(NO, CONTINUE 

[YES, SET STOP 

(RESTORE WBUF 

(EXIT 

(BUMP ADDR- POINT 512 WORDS HIGHER 



(Calculate; mxwbf 
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2815 
2816 
2817 
2818 
2819 
2820 
2821 
2822 



016604 000421 



016606 
016614 
016622 
016624 
016626 
016634 



062767 
026767 
103401 
000734 
062767 
103003 



000020 
162416 



162422 

162420 



002000 162376 



2823 016636 062767 000020 162370 

2824 016644 004767 000016 

2825 016650 000207 



BR 

ROTLOl ( ADD 
CMP 
PLO 

R0TB4I ADD 
BCC 
ADD 

tSi JSR 

ROTXTl RTS 



ROTXT 

»20,WBUF12 

WBIIF12, OFFSET 

B0TP4 

ROTBl 

#2000, WPUF 

IS 

»20.«BFEA 

PCPOTLWl 

PC 



(OK- USE IT 

;N0- RELOCATE OH START WBUF CYCLE OVER 

(ADVANCE THE WRITE BUFFER 

(IF NO CARRY DOW'T ADJUST THE EA BITS 

(CARRY SET, ADJUST THE EA BITS 

(TAKE CAPE OF ROTATING BELOW THE PROGRAM 

(RETURN 
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2626 

2827 
2t2S 

2829 0166S3 005067 

2830 016656 005067 
283! 016662 005067 
2832 016666 016767 
3833 016674 166767 
2834 016702 006367 
3835 016706 006367 

2836 nt6712 006367 

2837 016716 006367 
3838 016722 006367 
S839 016726 103003 

2840 016730 012767 

2841 016736 000207 
2842 
2843 
2844 
2845 
2846 

2847 016740 105767 

2848 016744 001406 
3849 016746 104406 

2850 016752 X044o« 

2851 016756 105067 

2852 056762 105767 

2853 016766 001430 

2854 016770 104406 

2855 016774 016746 

2856 017000 004767 

2857 017004 004S67 

3858 017010 001226 

3859 017012 001132 

3860 017014 001134 

2861 017016 162767 000002 

2862 017034 103003 

3863 017036 162767 000020 

3864 017034 016746 162072 

3865 017040 016746 162070 

3866 017044 004767 174266 
3867 
3868 
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»TH18 ROUTINE MILL HANDLE THE SITUATION rtHEN THE WRITE BUrrER IS ROTATISO 
! BENEXTH THr PRQGPiM 



SEQ 0099 



162363 
162354 



162354 
163352 
162350 
162350 
162336 
163350 
162344 
162340 
162334 
162330 



177777 162320 



16237! 

036344 
023724 
162353 
162325 

024505 
162220 
174422 
175662 



SOTLOWi CLR 
CLR 
CLR 

ROTLWli MOV 
SUB 
ASL 
ASL 
ASL 
ASL 
ASL 
BCC 
HOV 

l«t RTS 



wBur 

WBFEA 
VBuri2 

orrsET.MxwBP 
WBuri2.MxwBr 

MXWBF 

MXWBF 

MXWBF 

MXWBF 

MXWBF 

1$ 

#177777, MXWBF 

PC 



jRETURN 



ISUBRQUTINE TO CHECK IF BUFFER POTATION ENABLED, AND TO TYPE 
jTHE ROTATION RANGE, 



ROTCHKJ TSTB MEMEHF 
BEQ It 
MSGS.MERR! 
MSGS,MEMCHG 
CLRB MEMFRF 

111 TSTB ROTI 
BEO 31 
MSGS,ROTENB 



162106 
162100 



017050 000207 



2SI 



MOV 

JSR 

JSR 

HC0P12 

SAVLO 

SAVHI 

SUB 

BCC 

SUB 

HOV 

MOV 

JSR 

RTS 



LOCORE,-CSP) 

PC.ITOA 

P!,T018S 



t3, SAVLO 
3$ 

#20. SAVHI 
SAVLO, -CSP) 
SAVHI, -tSP) 
PCITOAX 

PC 



)N0> 



MEMOSy ERRORST 
BRANCH 



SROTATE ENABLED? 
»BP IF NOT, 

fTYPE LOWER LIMIT. 

»CONVERT UPPER LIMIT 



(TYPE UPPER LIMIT 



(EXIT. 
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3869 
2870 
3871 
3872 
2873 
2874 
2875 
2876 
2877 
2878 
2879 
3980 
2881 
7*83 
2883 
3884 
2885 
2886 
2887 
2R88 



017052 
017056 
017060 
017062 
017064 
017066 
0)7070 
017072 
017076 
017100 
017104 

'Ot7ri'» 

Ol7t17 
017120 
017122 
017126 
01713? 
017136 



016700 
006200 
006200 
006200 
006200 
006200 
010046 
004567 
02S667 
012700 
122720 

1 i276n 

000771 
104406 
1^4406 
1O4406 
000307 



024465 
025667 
024501 



iTHIS ROUTINE PRINTS OUT THE SYSTEM MCMnpY SIZE t'l DECIMAL. 

>GET THF MEMORY SIZE 

jCONVEPT FROM BYTE SIZE TO K WORD SIZE 



025667 
000060 



000041 17777'' 



MOV 


HCOP12,B0 


ASR 


RO 


A5R 


RO 


ASR 


RO 


ASR 


RO 


ASR 


RO 


MCV 


RO,-CSP) 


JSR 


PS.BDCMV 


HOLDS 


MOV 


«H0LD5,Pn 


CMPB 


«60»(R0)+ 


Bwr 


2S 


MnvB 


»4o,-ltP0) 


BR 


IS 


MSGS, 


SYSSIZ 


MSGS, 


HOLDS 


MSGS, 


KAY 


BTS 


PC 



jPUT IT 0»- THE STACK 

jCONVKRT TO DECIMAL ASCII CHARACTERS 

jAND PUT THEM HERE 

jGET THK LDCATinw OF THF. ASCII NUMBER 

jIS IT A LEADING 0? 

jK"D, CO^TINL'E 

lYES, FILL IT ftlTn- A BLANK 

(CHECK THE NEXT CHARACTER 

("SYSTEM SIZEl" 

J TYPE THE SYSTE'^ SIZE 
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SEO OJOl 











1 THIS Rl 


3UTINE WILL PR 










(POUND IN COUNTER 8YSCNT, 
















017140 


010046 




SYSNUMl MOV 


R0,-(8P) 




017143 


010146 




MOV 


R1,-CSP) 




017144 


016746 


162114 


MOV 


SYSCNT,-(SP) 




017150 


004567 


175216 


JSR 


RS.BOCNV 




017154 


035667 




HOLDS 






017156 


013701 


000004 


MOV 


t4,Rl 



(SAVE REG. 

(SAVE REG, 1 

>PUT SYSTEM ERROR COUNT ON STACK 

ICONVEPT IT TO DECIMAL ASCII CHARS, 

I AND PUT THEM HERE 

ILOAD THE COUNTER 
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3498 
3899 
3900 
2901 
3902 
3903 
3904 
2905 
3906 
3907 
3908 
3909 
2910 
2911 
2912 



017162 012700 025667 

017166 122720 000060 

017172 001005 

017174 112760 000040 177777 

017202 005301 

017204 001370 

017206 104406 025531 

017213 104406 025667 

017216 012601 

017220 012600 

017222 O0O2P7 



MOV 


IHOLD5,P0 


CMPB 
BNE 
MOVB 
DEC 


•60. (PO)* 
21 

i40r-l(B05 
Rl 


BNE 


11 


HSGSi 
MSGI, 


rNUMSYS 
.HOLDS 


MOV 
NOV 
RIS 


(SP)+,R1 
(SP)+,PO 
PC 



>GET ADR OF THE ASCTI HIIMBEP 

SiS IT A LEADING ZERO 7 
)N0, CONTINUE 

lYES, REPLACE IT WITH A BLANK 
TALL DONE 7 

JNO, CHECK MOPE CHARACTERS 

J'SYSTEM ERNOPSl" 
»TYPE THE NUMBE" 

(RESTORE PEG, 1 

(PESTORt; REG, 
iPETUPN 
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1 THIS POUTINE MILL PRINT THE NUMBER OF POWER FAIL ERRORS 

iFOUNO IN COUNTER PWBCNT. CALL VI&I JSR PC,PWRNUH 

I SAVE REG. 

(SAVE REG. 1 

J PUT POWER FAIL ERROR COUNT Qh STACK 

iCONVEPT II TO DECIMAL ASCII CHARS, 

I AND PUT THEM HERE 

jLOAD THE COUNTER 

jSET ADR OF THE ASCII NUMBER 

ilS IT A LEADING ZERO ? 

(NO, CONTINUE 

jYES, REPLACE IT WITH A BLANK 

I ALL DONE T 

jSO, CHECK MORE CHARACTERS 

J "POWER FAILS!" 
iTYPE THE NUMBER 

jRESTORE REG. 1 
(RESTORE RES. 
(RETURN 



291S 














2916 


C17224 


010046 




pMRKUMi 


MOV 


RO,-(SP) 


2917 


017226 


010146 






MOV 


R1,-CSP) 


2918 


017230 


016746 


162032 




MOV 


P«RCNT,"CSP) 


2919 


017234 


004567 


175132 




JSR 


R5,BDCNV 


2920 


017240 


025667 






HOLDS 




2921 


017242 


012701 


000004 




MOV 


84, PI 


2922 


017246 


012700 


025667 




HOV 


(HOLDS, RO 


2923 














2924 


017252 


122720 


000060 


111 


CMPB 


i60»tRO)+ 


292S 


017256 


00)005 






BNE 


3( 


293« 


017260 


113760 


000040 177777 


MOVB 


i40,-l(R05 


2927 


017266 


005301 






DEC 


Rl 


2938 


017270 


001370 






8NS 


IS 


2929 














2930 


017272 


104406 


025551 


281 


MSGIi 


NUMPWR 


2931 


017276 


104406 


025667 




MSGli 


HOLDS 


2932 














2933 


017302 


012601 






MOV 


tSP)+,Rl 


2934 


017304 


012600 






MOV 


tSP)+,P0 


2935 


017306 


000207 






RTS 


PC 


2936 















QABM DEC/Xll STANDARD MONITOR 
DXQABM.P11 21-APP-77 12|42 



2937 








2938 








2939 








2940 








2941 








2942 








2943 








7944 








2945 








2946 








2947 


017310 


004467 


175434 


2948 


017314 


016600 


000013 


3949 


017330 


010003 




JWO 


M7i?? 


ftO^TJI 




2951 


017324 


017000 


000000 


3952 


"17330 


017303 


000000 


3953 


017334 


005001 




3954 


017336 


005002 




2955 








2956 


017340 


032700 


007020 


2957 


017344 


101013 




2958 


"17346 


162700 


0070J0 


29^9 


017352 


005302 




2960 


017354 


000771 




3961 








2963 


017356 


022700 


000074 


2961 


017362 


101014 




3964 


017364 


163700 


000074 


2965 


017370 


005201 




3966 


017372 


000771 




3967 








3968 


117374 


005703 




3969 


017376 


001767 




3970 


017400 


063703 


000021 


3971 


017404 


062700 


010360 


3973 


017410 


005303 




3973 


017412 


000752 




2974 








3975 


017414 


010346 




3976 


017416 


004567 


174750 


2977 


017422 


025667 




3978 


017424 


116767 


006341 161753 


2979 


017432 


016767 


006334 161746 


2980 


017440 


010146 




2981 


017442 


004567 


174734 


3983 


017446 


035667 




2983 


0174S0 


016767 


006316 161733 


3984 


017456 


010046 




2985 


017460 


004567 


174706 


2986 


017464 


035667 




3987 


017466 


016767 


006300 161716 


3988 








3989 


017474 


004767 


175353 


3990 


017S00 


063716 


000004 


3991 


017504 


000307 




9942 
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I THIS ROUTINE WILL CONVERT THE GIVEN BTNApy 

(NUMBER INTO HOURS, MINUTES, AND SECONDS, LOCATIONS 

(HOLDING THE FINAL NUMBERS WILL BE TAGGED AS( HOURS, 

(MINITS, AND SEKNDS. HOURS MUST BE ON AN ODD BOUNDAPY. 

(MINITS AND SEKNDS "UST BE ON EVEN BOUNDARIES, 

(TEMPORARY LOCATION HOLDS MUST BE ON AN ODD BOUWDABY. 

( CALL VIAj JSR PCHHS 

( ADR (ADDRESS OF THE TIME 

I ADRX (ADDPFSS OF EXTENDED TIME BITS 



HMS« 



JSP 


R4,SAV04 


MOV 


lo,fSP),po 


HOV 


R0,R3 


T8T 


f»37f 


MOV 


•(RO),P0 


MOV 


?(P33,P3 


CLR 


Bl 


CLR 


B2 


CMP 


•3600. ,R0 


BHI 


3$ 


SUB 


#3600, ,R0 


INC 


R2 


BR 


IS 


CMP 


160, fRO 


BHI 


4« 


SUB 


*60.,R0 


INC 


Rl 


BR 


2t 


TST 


R3 


BEQ 


3t 


ADD 


#17. .R3 


ADD 


t4336.,R0 


DEC 


R3 


BR 


t( 


MOV 


R2,-CSP) 


JSR 


RS.BDCNV 


HOLDS 




MOVB 


HDLD5+2, HOURS 


MOV 


H0LD5+3,H0URS+1 


MOV 


B1,-(SP) 


JSR 


R5,BDCNV 


HOLDS 




HOV 


H0L05+J, MINITS 


HOV 


RO,-(SP} 


JSR 


RS,BDCNV 


HOLDS 




MOV 


HOLOS'fSf SEKNDS 


JSR 


PC,RST04 


ADD 


»4,CSP) 


RTS 


PC 



(SAVE REGS, 0-4 

(GET ADR OF OF »DR TIME 

(COPY IT INTO RFG, 3 

rOCT AOO Of FXTfWOBC TIME BITS ADR 

•PUT THF TIME IN REG. 

(PUT EXTENDED TIME BITS INTO REG, 3 

•ZERO MINUTES COUNTER 

(ZFRO HOURS COUNTER 

(LESS THAN 1 HOUR? 

(YES, GO LOOK FOR MORE HOURS 

(NO, SUBTRACT 1 HOUP'S WORTH OF SECONDS 

(COUNT AN HOUR 

(CHECK FOR MORE HOURS 

(LESS THAN 1 MINUTE? 

(YES, ALL DONE 

(NO, SUBTRACT 1 MINUTE'S WORTH OF SECONDS 

(COUNT A MINUTE 

(CHECK FOB MORE MINUTES 

(ANY EXTENDED TIME SITS ? 

(NO, GO LOOK FOR MINUTES 

(YES, ADD IN 17. HOURS 

(ADO IN 1 HR 12 MIN 16 SEC 

(GET RID OF ONE TIME EXTENDED BIT 

(CONTINUE 

(PUT THE HOURS ON THE STACK 

(CONVERT IT TO ASCII 

(AND PUT IT HERE 

(LOAD HOURS 

(LOAD HOURS 

(PUT THE MINUTES OH THE STACK 

(CONVERT IT TO ASCII 

(AND PUT IT HERE 

(LOAD MINUTES 

(PUT THE SECONDS ON THE STACK 

(CONVERT IT TO ASCII 

(AND PUT IT HERE 

(LOAD SECONDS 

(RESTORE REGS 0-4 
(SET PROPER RETURN PC 
(AND RETURN 
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2994 








2995 








2996 








2997 


017506 


132767 


000002 


2996 


017514 


001414 




2999 


017516 


012701 


031422 


3000 


017522 


005002 




3001 








3002 


017524 


010267 


000002 


3003 


017530 


076600 




3004 


017532 


OOOOPO 




3005 


017534 


010021 




3006 


017536 


005202 




3007 


017540 


022702 


000177 


3008 


017544 


001367 




3009 








3010 


017546 


000207 




3011 









t THIS POUTIME COPIES THE 11/60 ERROR LOG AND PUTS IT INTO 

|A BUrrER IN THE MONITOR. 



SAVtOGi 


BITB 


IBITl.PPPES 




BEO 


3t 




MOV 


»t<OGBUF,Pl 




CLP 


R2 


ISI 


MOV 

MED 


R2,2$ 


JSl 


.WORD 






MOV 


BO,(Pn + 




INC 


P2 




CMP 


#177, P? 




B^E 


IS 



JIS IT »ij 11/60 ? 

>N0, GET OUT 

:GET ADP. OP LOG BUFFER 

jINITIALIZE LOG COi^'^AND k^D ADDRESS 

!LO»D READ COv'AND »Nn THE ADDRESS 

jPEAO THE LOG REGISTER 

jREAD COMMAND AND REGISTER ADDRESS 

J STORE CONTE^iTS DE l,OG Xt BUFFER 

JSTEP TO NEXT ADDRESS 

•ALL DOVE 7 

rNO, KEEP GOIi.'G 

lYES, RET'IRV 



*•»««•«••*»»««»•*«**•*••*«*»*« 
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THIS ROUTINE CHECKS TO SEE IF ANY CLOCK 
T FLAGS IN BYTE 

JSR PCKLOCK 



S012 










1 


THIS 


ROUTINE CHECKS 


J013 










1 MODULES ARE 


PRESENT AND SE1 


• "J 4 










•LQCATIOW CLOCK 


3015 










1 




CALL VIAl 


3016 
3017 
3018 










» 






017550 


105067 


161577 




KLOCKJ 


CLR8 


CLOCK 


3019 


017554 


005767 


161576 






TST 


CLOCKL 


3020 


017560 


001406 








BEQ 


IS 


3021 


0175S2 


112767 


000001 


161563 




MOVB 


»BIT0iClSCK 


3022 


017570 


017700 


161562 






MOV 


gCLOCKL.RO 


3023 


017574 


000410 








BR 


28 


3024 
















302S 


017576 


005767 


161556 




IS! 


TST 


CLOCKP 


3026 


017602 


001421 








BEQ 


4S 


3027 


017604 


112767 


000002 


161541 




MOVB 


IBITl, CLOCK 


302e 


017612 


017700 


5'":42 






MOV 


?CLOCK?,B0 


3029 


017616 


012737 


; )2 


000004 


2Sl 


M.nv 


«3S.i)l4 


3030 


017624 


005070 


000006 






CLR 


»6(R0) 


3031 


017630 


000406 








BB 


4t 


3032 
3033 


017632 


022626 






3$i 


CMP 


t5P)+,(SPl+ 


3034 


017634 


10440S 


024317 






MSGS, 


iNOrLK 


3035 


017640 


000000 








HALT 




tfiSS 


ftl7s42 


105067 


161505 






CLRB 


CLOCK 


3037 


017646 


012737 


015246 


000004 


4Si 


MOV 


»BUSERR.I>«4 


3031 


017654 


000207 








RTS 


PC 



SZERO CLOCK FLAG 
»KW11-L CLOCK PRESENT? 
jNO, COKTINUE 

I SET h CLOCK PRESENT FLAG 

•GET BEGIN ADDRESS OF CLOCK MODULE 

(CONTINUE 

jKWll-P CLOCK PRESENT? 

>N0, RETURN 

I SET P CLOCK PRESENT FLAG 

>GET BEGIN ADDRESS OF CLOCK MODULE 

;LOAD TIME-OUT VECTOR 

jMAKE SURE SYSTEM CLOCK IS THERE 

(IT'S THERE, RETURV OK 

jPOP THE STACK POINTER TWICE 
J 'NO SYSTEM CLOCK FOUND' 
jWAIT FOB OPERATOR'S DECISION 
jINDICATE NO CLOCK AVAILABLE 
jReSfORB fI*it-OuT VECTOP 
jRETURN 
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3039 
3040 
3041 
3042 
3043 
3044 

3045 017656 010046 

3046 017660 112767 000001 

3047 017666 001005 

304S 017*70 132767 000002 

3049 017676 001004 

3050 017700 000456 
3051 

3052 
3'0«"3 
3054 
3055 
3056 
3057 
3058 
3059 
3060 
3061 

3062 017706 0n0402 

3063 017710 016700 
3064 

3065 017714 016067 

3066 017722 016067 

3067 017730 105767 

3068 017734 001407 

3069 017736 105767 

3070 017742 100404 

3071 ni7744 012777 
3072 
3073 
3074 
3075 

3076 017754 004767 

3077 017760 001414 

3078 017762 001416 

3079 017764 116767 

3080 017772 116767 

3081 020000 116767 

3082 020006 116767 

3083 020014 116767 

3084 020022 116767 

3085 020030 116767 
3086 

3087 020036 012600 

3088 020040 000207 



017702 016700 161450 



017752 011431 



000002 
177776 
161355 

161407 

nioooc 



161415 
161410 
161403 
161376 
161371 
161364 
161357 
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I THIS ROUTINE «ILL GET THE RUNTI«E IN 

jSECONDS FROM THE CLOCK MODULE, HAVE IT CONVERTED 

|T0 HOURS, MINUTES, AND SECONDS VTA SUBROUTINE HMS, AND 

(STUFFS IT INTO PROPER LOCATION FOR PRINTOUT. 

I CALL VIAl JSP PCPUNTYM 



161465 
161455 



161472 
161466 



1«122« 



006105 
006100 
006073 
006067 
006062 
006056 
006051 



RUNTYMJ WOV 
BITS 
ENE 
BITS 

RNE 
BB 



BR 

MOV 

MOV 

"OV 

TSTB 

BEQ 

TSTB 

BVI 

PIT 



BEQ 

JSR 

RTIKE 

RTIVX 

MOVB 

MOVB 

MOVB 

MOVB 

KOVB 

MOVB 

MOVB 



R0,-(SP5 
«BITO, CLOCK 
IS 

#RIT1, CLOCK 



3S 

CLOCKP, BO 

2tR0).RTIME 
-2(R0),PTIMX 

RMODE 
4S 

TFLAG 
43 

«PrT12,?SP 



(SAVE REG, 

•USING THE KKll-L CLOCK? 

lYES, CONTINUE 

lUSING THE K«ll-P CLOCK? 

;YES, CONTINU": 

;N0, CAN'T DO ANYTHING, RFTURN 



HOURS, THBS 
HOURS+l,THPS»l 
HOUBS+2,THBS+2 
MINUS, TMINS 
HINITS+1,TMINS+1 



:GET ADR OF CLOCK INFORMATION 



(CONTINUE 

(GET ADR OF CLOCK INFORMATION 

(GET THE TIME FROM THE CLOCK MODULE 

jGET THE TIME EXTENDED BITS TOO 

(PROGRAM IN THE RUN MODE ? 

(NO, WUST BE TIWE FOP SUMMARY 

(YES, IS II ERROR TIME ? 

(YES, SETUP RUNTIME FOR OUTPUT 

,110, PBINT THE EOP DATA ? 



(NO, RFTURN 

(CONVERT TO HOURS, MINUTES AND SECONDS 
(FROM SECONDS 
(EXTENDED BITS 
(LOAD lOO'S COLUMN OF HOURS 
(LOAD lO'S COLUMN OF HOURS 
(LOAD I'S COLUMN OF HOURS 
(LOAD lO'S COLUMN OF MINUTES 
ILOAD I'S COLUMN OF MISUIES 



SEKNDSjTSECS (LOAD lO'S COLUMN OF SECONDS 
SEKNDS+1,TSECS+1 (LOAD I'S COLUMN OF SECONDS 



MOV 
RTS 



CSP)+,RO 
PC 



(RESTORE REG, 
(RETURN 



0»BM DEC/Xll 8'»N0»PD "CNITOP 
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3089 
3090 
3091 
3092 
3093 
3094 
309S 
3096 

3097 020042 112767 

3098 020050 000406 

3099 020052 112767 

3100 020060 000402 

3101 020062 105067 
3102 

3103 020066 004467 

3104 020072 132767 

3105 020100 001005 

3106 020102 132767 

3107 020110 001004 

3108 030112 000505 
3109 

3110 020114 01670C 

3111 020120 000402 

3112 020122 016700 
3113 

3114 020126 132767 

3115 020134 001403 

3116 020136 017701 

3117 020142 000402 
3118 

3119 020144 016701 

3120 020150 012702 

3121 020154 012703 
3132 

3123 020160 020122 

3124 020162 001406 

3125 020164 062703 

3126 020170 ^72703 

3127 020174 003173 

3128 020176 0004S3 
3139 

3130 020200 060003 

3131 020202 011.1-4 

3132 020204 f>04''67 

3133 020210 016700 

3134 020214 160400 

3135 020216 105767 

3136 020222 ir;041S 

3137 020224 016713 

3138 C20230 016763 
3139 

3140 020236 1327S7 

3141 020244 001030 

3142 020246 032777 

3143 020254 001424 

3144 020256 010067 
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THIS ROUTINE WILL SETUP THE TIME INFORMtTION 
rOB THE END OF PASS AND ERROR MESSAGES, IT ALSO LOADS THE START 
TIME rOR A EKHOO. SUBROUTINES CALLED APE RUNTYH AMD HMS, 
CALL VIAl JSR PCPASTYM 
JSR PC»ERRTYM 
JSR PCBKTYM 



SEO 0109 



000001 U1301 BKTYMi 
000200 161271 
161263 



MOVB 
BR 

ERPTYMi MOVB 
BR 

PASTYWj CLRB 



174646 

000001 161253 

000002 161243 

161236 

161232 

000001 161215 

161126 



161344 
026522 
000004 



RUNPASi JSR 
8ITB 
BNE 
BITS 
BNE 
BR 



181 

2«: 
311 



4ti 
Sti 



000004 
000360 



177446 
161200 



161164 

161162 000002 

000001 161105 

010000 160722 

161142 



MOV 

BR 

MOV 

BITB 

BEO 

HOV 



MOV 
MOV 
HOV 

CMP 
BEQ 
ADD 
CMP 
BGT 
BR 

ADD 

HOV 

JSR 

MOV 

SUB 

TSTB 

BMI 

MOV 

MOV 

BITB 

BNE 

BIT 

BEQ 

MOV 



#8IT0,TrLAG iSET FLAG INDICATING BKMOD II^E SETUP 

RUNPAS iCONTINUE 

tBIT7»TrLAG jSET ERROR CALL FLAG 

RUNPAS tCONTINUE 

TFLAG jSET END OF PASS FLAG 

R4,SAV04 iSAVE REGS. 0-4 

PBITO, CLOCK jUSINC THE KWU-L CLOCK? 

U J YES, CONTINUE 

•BITl, CLOCK JUSING THE KWll-P CLOCK? 

28 JYES, CONTINUE 

9$ fNO» CAN'T DO ANYTHING, RETURN 

CLOCKL,RO iGET ADR OF CLOCK INTOR"ATION 

3« jCONTINUE 

CLOCKP,R0 iGET ADR OF CLOCK INFORMATION 

tBITO, TFLAG (SETUP FOR BKMOD 7 

4$ >N0, CONTINUE 

9BKPTR,R1 lYES, GET ADR OF THF BKMOD 

5« jCONTINUE 

CSIART,P1 >GET »DR OF MODULE DOING EOP 

IM0DQ,R2 jGET ADR OF MODULE ADDRESSES 

»4,R3 iSET POINTER TO 1ST MODULE TIME FNTRY 

R1,(R2)+ jHAS THE MODULE TIMF BEEN FOUND? 

71 iYE3, CONTINUE 

»4,R3 fADD 4 TO THE TABLE ADDRESS 

•240, ,R3 jAT THE END OF THE TABLE? 

6« jNO, KEEP SEARCHING 

9« (SOMETHING'S WRONG— GET OUT 

R0,P3 (GET ADR OF CLOCK I«FO TABLE 

(P3)»R4 (GET TIME OF MODULE'S LAST PASS 

PCRUNTYH (GET AND SET UP RUNTIME INFORMATION 

RTIME,RO (PUT THE RUNTIME IN PEG, 

R4,P0 (GET THE MODULE'S ELAPSED TIMK 

TFLAG (IS IT ERROR TIME ? 

81 (YES, CONTINUE 

RTIME,CR3) (NO, UPDATE THE HODl'LE'S PASS TIME 

RTTMX,2CR3) (AND THE FXTENDED BITS 

#8IT0, TFLAG (SETUP FOR BKMOD 7 

91 (YES, ALL DONE, RETURN 

»BIT12,»SR (NO, PRINT THE EDP DATA ? 

9« (NO, RETURN 

RO,PTIME (PUT THF ELAPSED TT'E INTO PTIME 
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314S 


0:!03«2 


005067 


161130 






020366 


'"04767 


177016 






020272 


001424 








020274 


0O1416 








02027* 


11676" 


1SU06 


00561! 




020304 


116767 


t, 6 1 1 1 


005610 




02031? 


', '676"' 


161074 


005604 




02032) 


i.'«767 


•. M0S7 


005577 














02132!$ 


■ -ilS? 


'■'.1420 






020332 


:')0207 







CLR 
JSR 
PTIME 
RTIMX 

MOVB 
MOVB 
MOVB 
MOVB 

JSR 
PTS 



RTIMX (THIS NILL ALWAYS BF 

PC, HMS (CONVERT IT TO HOURS, MINUTES, AND SECONDS 

(GIVEN THE TIME IN SECONDS 

(0 
MINITS.MMINS (LOAD lO'S COLUMN OF "INUTES 
MINITS+1,MMINS+1 (LOAD 1 'S COLUMN OF MINUTES 
SEKNDS,MSECS (LOAD lO'S COLUi'N Of SECONDS 
SEKND5+1,MSECS*1 (LOAD I'S COLUMN OP SECONDS 



PC,RSI04 

PC 



(RESTORE PEGS, f'i 
(RETURN 
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31SS 
31S9 

3160 
3161 
3162 
3163 
3164 
316S 
3166 
3167 
316B 
3169 
3170 
3171 
3172 
3173 
3J74 
3175 
3176 
3177 
3178 
3i?9 

iieo 
3iei 

3182 
3183 
3184 
3185 
3186 
3187 
3198 
3189 
3190 
3191 
3192 
3193 
3194 
3195 



030334 
020340 
020342 
020350 
020352 
030360 

020362 
030366 
020370 

020374 
020402 
020410 
020414 



020416 
020422 

020424 
020432 



020434 
020440 
020444 
020450 
020454 
020455 



10S7S7 16101J 

001435 

133767 000001 

001004 

132767 000002 

001003 

017700 160770 

000403 

017700 160764 

016067 000006 

017067 000006 

005070 000006 
000207 



105767 160731 

001403 

016777 160772 

000207 



016706 
005067 
005067 
004767 
000340 
000167 



160512 
157332 

161044 
000006 

164476 



THIS POUTINE WILL SHUT OFF THr CLOCK (If AVAILABLE) TO KEEP 
CALL VIAj JSP ' PCCLKOFF 



161003 
160773 



161016 
161012 



CLKOFFl ISTB CLOCK (IS THEPE A CLOCK ON THE SYSTEM J 

BFQ 41 jVO, RETUBN 

BITB IBITOiCLOCK jYES, THE KWU-L 7 

BNE It (YES, CONTINUE 

BITB iBITl, CLOCK jNO, HOW ABOUT THE KWH-P 7 

BNE 3« »YES, CONTINUE 

l$t MOV 9CL0CKL»R0 jSET THE BEGIN ADDRESS OF CLOCK HODULE 

SR 38 JCQNTINUE 

3ll MOV I«CLOCKP,RO iGET THE BEGIN ADDPESS OF CLOCK MODULE 

3(1 WOV 6(B0),CLKADR iSAVE THE CLOCK ADDPESS 

HOV ?6(P0),CLKHL0 jSAVE CONTENTS OF CLOCK CSR 

CLR S6(P0) jKILL THE CLOCK 

4(t RTS PC jRETURN 



I THIS ROUTINE WILL TURN THE CLOCK BACK ON IF IT WAS TURNED 
.nrr dv ri.wnwv 



CALL VIAl 



JSP 



PCCLKON 



CLKONI 



160766 



TSTB 
BEQ 
MOV 
RTS 



CLOCK J IS THERE A CLOCK ON THE SYSTEM 7 

II jNO, RETURN 

CLKHLD,KLKADR (RESTORE THE CLOCK STATUS 

PC • RETURN 



THIS IS THE CALLING SEQUENCE FOR THE CKHUNG ROUTINE 



»RESTORE MONITOR STACK POINTER 
(PROCESSOR TO STATUS 
(INDICATE NO WQOULES DOING FOP 
(GO CHECK FOP HUNG MODULES 



HUNGCKI 


MOV 


SPSAV,SP 




CLR 


PSW 




CLR 


CSTART 




JSR 


PC, CKHUNG 




NOP 






JMP 


ENDSVG 



(GO CHECK FOR OTHER MODULES RUNNING 
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3196 
3197 
3198 

3199 
3300 
3301 
3303 
3303 
3204 
330! 
3306 
3207 
3208 
3 2D?! 
3210 
3211 
3213 
3213 
32)4 



3216 
3217 
321S 
3219 
3220 
3221 
3222 
3223 
3324 
3335 
3325 
3237 
3338 
3229 
3230 
3231 
3232 
3233 
3234 
3235 
3236 
3337 
3338 
3239 
3240 
3341 
3343 
3343 
3244 
3345 
3346 
3347 
3248 
3349 
3350 
3351 



021463 
020466 
020474 
O2047S 
020504 
020506 
030513 

o;>.5i4 

02052D 
O20S32 

020^26 
070532 

020540 
070542 
n20"i45 
020550 
020556 
020560 
020566 
070570 
02n5''5 
020600 
020604 
020606 
020614 
020616 
020623 
020624 
030630 
020634 
030636 
020640 
020644 
020646 
030654 
030656 
020660 
020664 
030670 
030677 
020676 
020702 
030706 
030710 



004467 
133''67 

001007 
133767 
001513 

016702 
000403 
Ct&702 
010203 
063703 

0)7700 
005067 

001442 
026701 
001467 
023761 
001463 
032761 
001457 
033761 
001053 
005761 
100050 
022761 
001444 
016204 
161304 
062703 
020467 
101740 
010105 
010467 
000734 
026767 
100027 
010501 
004767 
105767 
001421 
013700 
016204 
016301 
010303 
062703 



174253 

000001 

000003 

150646 

150636 

000004 

076522 
160670 

160745 

144000 

040000 

020000 

000020 

142000 

000002 

000004 
160572 

160562 
160510 



000070 
160134 

026522 
000002 

177776 
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(THIS ROUTINE IS CALLED FROM THE "PASEND" OR HUNGCK POUTINE AND CHECKS 
(THAT ALL RUNNING MODULES HAVE COMPLETED «T LEAST ONE PASS DUPING A 
(SPECIFIED TIME INTERVAL, IF IT DETECTS A "HUNG" MODULE, THE 
(MODULE IS DROPPED AND AN ERROR MESSAGE REPORTED. 



SEO 0113 



160657 
160S47 



CKHUNG( 



2$i 



000020 
000030 
000030 

000020 



160553 4>t 



JSR 

BITR 
BNE 
BITB 
BEQ 

MOV 

BR 

MOV 

MQV 

ADD 

MOV 
CLB 



030714 005730 
030716 001406 
030730 010423 



BFO 

CMP 

BEO 

CMP 

BEQ 

BIT 

BEQ 

BIT 

BNE 

TST 

BPL 

CMP 

BEQ 

MOV 

SUB 

ADD 

CMP 

BLOS 

MOV 

HOV 

BR 

CMP 

BPL 

HOV 

JSR 

TSTB 

BEQ 

MOV 

MOV 

MOV 

MOV 

ADD 

TST 
BEQ 
MOV 



R4,SAV04 

IMITO, CLOCK 

1$ 

•PITl, CLOCK 

78 

CLnCKF,F2 

2S 

CLnCKL,R2 

R2,R3 

«4,R3 

|MD0Q,R0 

MAXTIM 

C R 5 + , R 1 

4$ 

CSTART, RJ 

68 

«144000,STAT(R1 

6$ 

»PIT14,STAT(Rn 

68 

«BIT13,STAT(Rn 

68 

ST«T(P1) 

68 

•143000, STATifll 

68 

3(R3),R4 

(R3),R4 

»4,R3 

R4, MAXTIM 

38 

R1,P5 

P4,»"AXTIM 

38 

HHGTIM, MAXTIM 

7« 

R5,R1 

PCDRPHNG 

STOP 

78 

(MODQ,R0 

3(R3},R4 

-2tR25,Rl 

R3,R3 

84, R3 

(R0) + 

78 

R4.(R3)+ 



(GO SAVE PO - R4 

(USING THE KWll-I, CLOCK 7 

(BR IF YES 

[USING THE KWU-P CLOCK ? 

(BP IF NOT - SOMETHING'S SCREWEY 77 

(GET POINTER TO TIMING INFO 

(GET POINTER TO TIMING INFO 

(COPY R2 

»R3 POINTS TO TABLE OF PASS TIMES 

(IN THE "TIMER" MODULE 

(GET POINTEP TO MODUf.E ADDR TABLE 

(ZERO LARGEST ELAPSED TIME 

(PUT MODULE BEGIN AODB IN Bl 

jBR IF DONE ALL MODULES 

(IS IT THE MODULE DOING THE EOP 7 

(YES, SKIP IT 
) (IS IT AN lOMODR 7 

(BR IF YES 

(IS IT SELECTED 77 

(BR IF NOT 

(WAS IT ALREADY DROPPED 7? 

(BR IF YES 

(IS IT A BKMOD 7 

(YES, FORGET IT 
) (IS IT AN lOMODP 7 

(YES, FORGET IT 

(GET TIME FROM THE TIMER 

(CALCULATE TIME SINCE LAST ENOPAS 

(POINT TO THE NEXT TIME ENTRY 

(IS THIS ELAPSED TIME BIGGER 7 

(NO, CONTINUE 

(YES, SAVE THE MODULE POINTER 

(UPDATE THE MAXTIM 

(CONTINUE 

(IS THE MODULE HUNG 77 

(IF NOT, RETURN 

(YES, INDICATE MODULE TO BE DROPPED 

(GO DROP IT AND REPORT ERROR 

(WAITING TO PELOCATE ? 

(NO, RETURN 

(SET POINTER TO MODULE ADDR TABLE 

(YES, GET THE PRESENT TIME 

(AND TIME EXTEIIOED BITS 

(GET POINTER TO TIME IIIFO 

(POINT TO PASTIME INFO 

(ALL DONE 7 

(YES, RETURN 

•UPDATE ALL HODULE PASTIMES 
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OOlil PAGE HI 



3252 


020722 


010123 




3253 


020724 


000773 




32S4 


020726 


082703 


000004 


3255 


020732 


000701 




3256 


020734 


004767 


174012 


3257 


020740 


105767 


160051 


3258 


020744 


001002 




3259 


O20746 


000167 


166076 


3260 


020752 


000207 





6St 

7I» 



MOV 

BP 

ADD 

BP 

JSP 

TSTB 

BNE 

JMP 

RTS 



B1,CB3)+ 
5$ 

»4,P3 

3S 

PC,B5T04 

MODCNT 
8$ 

CTRLCB 
PC 



lAND TIME EXTENDED BITS 

JCONTINUE 

jPOINT TO NEXT PASS TIME ENTPY 

;G0 DO IT AGAIN 

:G0 RESTORE RO - R4 

»ANy MODULES STILL RUNNING ?7 

{BR IF YES 

jGO TERMINATE THIS "RUN" 

jRETURN TO CALLING ROUTINE 
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3261 
3262 
3263 
3264 
3265 
3266 
3267 

3268 020754 052761 020000 

3269 020762 032761 010000 

3270 020770 001402 

3271 020772 105367 160024 

3272 020776 105367 160013 

3273 021002 021201 

3274 021004 001014 

3275 021006 105067 160341 

3276 021012 010046 

3277 021014 004567 166330 
1279 021020 022744 

3279 021022 022''44 

3280 021024 024230 

3281 021026 022744 
32B2 021030 000000 

3283 021032 012600 

3284 021034 000207 
3285 

3286 021036 021267 160226 

3287 021042 001002 

3288 021044 105067 157743 

3289 021050 004567 172560 

3290 021054 026026 

3291 021056 004767 176770 

3292 021062 010046 

3293 021064 004567 166260 

3294 021070 022744 

3295 021072 022744 

3296 021074 026025 

3297 021076 026066 

3298 021100 022744 

3299 021102 000000 

3300 021104 012600 

3301 021106 000207 
3302 



MACYll 27(10065 23-APP-77 OOlll PAGE 112 



iTHIS ROUTINE IS CALLED FROM THE "CKHUNG" ROUTINE AT'D IT IS USEn 
|T0 DROP THE HUNG MODULE AND REPORT THE ERROR ON THF CONSOLE 
jTTY. IF THE "TIMER" MODULE IS FOUND TO BE HUNG THE« THE ROUTINE 
jDISABLES ANY FITRTHEP TIMING CHECKS USING THE CLOCK 
|BY CLEARING THE BYTE TAGGED "CLOCK" 



000020 
000020 



DRPHNGt PIS 
BIT 
BEQ 
DECB 

IS J DECB 
CMP 
BNE 
CLPB 
MOV 
JSR 
CRCR 
CRCR 
TIMX! 
CRCR 


MOV 
RTS 

2Sl CMP 

BNE 
CLBB 
3tl JSR 

TIHX+1 

JSR 

MOV 

JSR 

CRCR 

CRCR 

TIMX 

TOTIM 

CRCR 



MOV 

PTS 



»RlT13,STAT(Rn 

«BIT12,STATCPn 

IS 

MDXCNT 

MODCNT 

tP2)»Bl 

2S 

CLOCK 

RO,-(SP) 

P5,IYPEN 



(SP)+,RO 
PC 

CR2)»BKPTR 

38 

BRAKE 

R5,FILLNH 

PC.ERRTYM 

RO,-CSP) 

PS.TYPEN 



;SET THE DROPPEH SIT 

•TP«ODX MODULE ?7 

!6P IF NOT 

(DECREMENT COUNT OF lOMODX MODULES 

SDECREMENT COUNT OF PUNNING MODULES 

SDID WE STOP THF TI«»ER MODULE 7? 

!PP IF NOT 

(DISABLE ALL TIMING CHECKS 

jTYPEN SCREWS YOU IF YOtI DON'T SAVE RO 
)G0 REPORT DROPPING THE TIMER MODULE 



(RESTORE RO 
(RETURN TO "CKHUNG" 

(DID WE DROP AN ACTIVE BKMOD 7 

(BP IF NOT 

(CLEAR THE BRAKE 

(GO GET MOD NAME SET UP 

(POINTER TO ERROR MESSAGE 

(GO SETUP TIME INFORMATION 

(TYPEN SCREWS YOU IF YOU DON'T SAVE RO 
(REPORT THAT WE DROPPED IT 



(SP)+,RO 
PC 



(RESTORE RQ 
(RETURN TO "CKHUHG" ROUTINE 
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SEO 0115 



3303 
3304 
330S 
3306 
3307 
3308 
3309 
3310 
3311 
3312 
3313 
3314 
3315 
3316 
3317 
3318 
3319 
3320 
3321 
3322 
3323 
3324 
3325 
3326 
3327 
3328 
3329 
3330 
3331 
3332 
3333 
3334 
3335 
3336 
3337 
3338 



021110 
021116 
021124 
021132 
021140 
021144 
021146 



021150 
021152 
021154 
021160 
021162 
021166 
021172 
021176 
021200 
021204 
021206 
021212 
021216 
021220 
021226 
021230 
021234 
021240 
021242 
021244 
021250 
021254 
021256 
021264 
021270 



016767 
016767 
012737 
012737 
000167 
177564 
177566 



010146 
010246 
017601 
010102 
062701 
016721 
016721 
012111 
021167 
101402 
016711 
105767 
100410 
126267 
001404 

josis; 

105367 
012602 
012601 
062716 
105367 
100005 
116767 
004767 
000002 



1600S6 160050 
160052 160044 



00152S 
000200 
167512 



000200 
000202 



000074 
160040 
160036 



160044 
157603 



000002 
157561 



160055 
175014 



LPONI MOV liPS.TPS 

MOV LPBfTPB 

MOV" #TTi5BVf ?#20u 

MOV )|PBTV4, 91202 

JMP C0MC03 

LPWKl! 177564 

LPWK2I 177566 

I GET WRITE BUFFER ADDRESS SERVICE 



000005 157575 



GWBUF.I HOV 
MOV 
MOV 
MOV 
ADD 
MOV 
MOV 
MOV 
CMP 
BLOS 
MOV 
TST8 
BMI 
CMPB 
BEQ 



l«l 



157551 



DECB 

MOV 

MOV 

ADD 

DFCB 

EPL 

MOVa 

JSP 

BTI 



Rl.-tSP) 

P2,-CSP) 

94(SP5,R1 

R1,R2 

«WBUFPA,R1 

WBUF,CRn + 

WBFEAf CRn + 

CPlJ+fCPl) 

tpn»MXWBF 

IS 

HXWBFfCRl) 

MOXCTR 

2$ 

XFLAG(2),WBFLG 

28 

MDXCTR 
(SP)+fR2 
CSP)+,R1 
t2,CSP5 

ROT 

3$ 

PDTNjROT 

PCROTBUF 



iSAVE REGISTER 

SSET ADDRESS OF MODULE 



jliOAD ADDRESS OF WRITE BUFFER 

jtOAD EXTENDED ADDRESS BITS 

;HOVE SIZE REQUESTED INTO SIZE ALLOWED 

! REQUESTED SIZE 0K7 

jYES- BRANCH 

}N0- SET ALLOWED SIZE 

jIF NOT YET SETUP, SKIP 

;IF SAME, HAS ALREADY USED THIS SANK 



jAND COUNT DOWN MODULES 
SRESTOPE REGISTERS 



■SETUP RETURN PC 



•GO CHANGE WRITE BUFFER ADDRESS 
•RETURN 
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3339 








3340 








3341 








3342 








3343 


021272 


010146 




3344 


021274 


010246 




3345 


021276 


017601 


000004 


3346 


071302 


012111 




3347 


n7i3n4 


l'?!767 


157774 


3348 


021310 


001003 




3349 


071312 


005061 


000002 


3350 


071316 


000436 




3351 








3352 


021320 


000311 




3353 


071322 


00621 1 




3354 


021324 


0062U 




3355 


071326 


006211 




3356 


071330 


006211 




3357 


021332 


042711 


177761 


3358 


021336 


062711 


172340 


3359 


021342 


017111 


000000 


3360 


021346 


017702 


000006 


3361 


021352 


006311 




3362 


021354 


006161 


000002 


3363 


021360 


005302 




3364 


021362 


001373 




3365 


021364 


014102 




3366 


021366 


042702 


160000 


3367 


021372 


005721 




3368 


021374 


060221 




3369 


021376 


005511 




3370 


021400 


042711 


177774 


3371 


021404 


006311 




3372 


021406 


006311 




3373 


021410 


006311 




3374 


021412 


006311 




3375 


021414 


012602 




3376 


021416 


012601 




3377 


O21420 


062716 


000002 


3378 


021424 


000002 




1379 








3380 









(ROUTINE TO GET IP BIT PHYSICAL ADDRESS OF VIRTUAL ADDRESS GIVEN, 
(TOP 2 BITS ARE ALLIGNED TO POSITIONS 4 AND 5 
(ASSUMES KERNEL I-SPACE ADDRESS IN CURRENT -^AP 

(SAVE REGISTERS 

(GET TABLE ADDRESS 

(VA INTO PA LOC IN TABLE 

(KTIl IV USE? 

(YES- BRANCH 

(NO- CLFAR EA BITS 

(AND EXIT 



(PAGE BITS ALLIGNED 
(KIPAR ADDRESS FORMED 
(GET CONTEMS 
(SHIFT 6 LEFT 



GETPA 


,1 MOV 


R1,-(SP) 




MOV 


B2,-CSP) 




MOV 


P4(SP),R1 




MOV 


(Rn + iCRl) 




T5TR 


KTPRES 




BWE 


IS 




CLR 


2fRn 




BR 


38 


Hi 


SWAB 


tRl) 




ASR 


(PI) 




ASP 


(Bl) 




ASR 


(Bl) 




ASR 


(Rl) 




BIC 


• 177761, (Rn 




ADD 


#KlPARO,CRn 




KOV 


aCBD.CBi) 




MOV 


»6,R2 


28{ 


ASL 


CBll 




ROL 


2CRn 




DEC 


R2 




BNE 


2S 




MOV 


-(Rn,R2 




BIC 


tl6.0OO0,R2 




TST 


(P1) + 




ADO 


R2,(Rn + 




ADC 


(Rll 




BIC 


1177774, CRD 




ASL 


CBl) 




ASL 


(PI) 




ASL 


(Rl) 




ASL 


(Rl) 


381 


MOV 


(SP)+,R2 




MOV 


(SP)+,R1 




ADD 


•?,(SP) 




BTI 





(GET VA 

(CLEAR PAGE BITS 



(CREATE 16 BIT PA 

(ALLIGN BITS IN POSITIONS 4+5 



(RESTORE REGISTERS 
(RETURN 
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3381 








iTHIS ROUTINE 


ALLOWS RH70 


33B2 












3383 












3384 


02U26 


010146 




HAP22.i MOV 


R1,-CSP) 


3385 


9S1430 


017601 


000002 


MOV 


»2{SP),R1 


3386 


021434 


012161 


000002 


MOV 


CBl) + .2CRn 


3387 


021440 


011161 


000004 


MOV 


(Bl).4CBn 


3388 


021444 


006261 


000004 


ASP 


4(Rn 


3389 


021450 


006261 


000004 


ASR 


4(Rn 


3390 


021454 


006261 


000004 


A5R 


4CP1) 


3391 


0214SO 


006261 


000004 


ASR 


4CRn 


3392 


021464 


012601 




MOV 


(SP)+,R1 


3393 


021466 


062716 


000002 


ADD 


*2iCSP) 


3394 


021472 


000002 




PTI 





jSAVE REG. 1 

;GBT THE 1ST ADDRESS OP THE TABLE 
>aiVE BACK THE SAME 18 BITS 
jTHAT WERE GIVEN TO BE CONVERTED 
» SHIFT BACK FRO" POSITIONS 4 AND 5 
ITO POSITIONS AND I 



jBESTORE REG. 1 

iSKIP OVER VA TO GET THE RETURN PC 

jRETURN 
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3395 
3396 
3397 
J399 
3399 
3400 
1401 
3402 
3403 

3404 021474 105767 157604 

3405 021500 001001 

3406 021502 000207 

3407 021504 016700 157712 
3409 021510 016705 157704 

3409 021514 016703 157524 

3410 021520 0U«n4 

3411 021522 C->5037 177572 

3412 021526 .4767 170416 

3413 021532 052737 OOOOOl 

3414 021540 01006? 157S56 

3415 021544 010567 157650 

3416 021550 010367 157470 
3417 

341R "21554 010467 157472 

3419 C2156C 105067 157561 

3420 021564 005077 157372 

3421 021570 004767 173172 

3422 021574 105067 157230 

3423 021600 012737 077406 

3424 021606 012737 077406 

3425 021614 105767 157505 

3426 021620 001406 

3427 021622 100067 
3428 

3429 021624 016767 157416 

3430 021632 105067 157467 

3431 021636 026767 157402 

3432 021644 001004 

3433 031646 105167 1S7473 

3434 021S52 000167 000534 

3435 021656 016767 157362 

3436 021664 026767 157356 

3437 021672 101012 

3438 021674 016737 157342 

3439 021702 016737 157340 

3440 021710 112767 OOOOOl 

3441 021716 000450 

3442 021720 016737 157300 

3443 021726 032737 000177 

3444 021734 0C1OP3 

3445 021735 J«J7'«'' ff'ijf? 

3446 021744 '-^J?: '-.vU^ 

3447 021752 0U727 lT",-344 

3448 021760 066737 1S7256 

3449 02176t 066737 157254 
8450 021774 lOSOC? 157330 
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iMOVE CODE TO NFW OFFSET, AFTER CHECKING FOB CODE ALREADY IN 
iMIDST OF BEING MOVED. HAP KTl 1 TO NEW CODE AND RETURN TO IT. 
I ALL VALUES USED EXCEPT OFFSTO ARE ASSUMED CORRECT IN BANK COPY 
!•»«» STACK POINTER IS REPOSITIONEn TO SPBOT BEFORE RETURNING 
iMVCODS ENTRY POI'^T IS USED TO LEAVF OFFSET AS PRFVIQUSLY SETUP- 
iNOTE, HOWEVER, THAT MAPRET MUST BE LOADED WITH THE RETURN ADDRESS 
jBEFOPE CALLING. MVCODS SHOULD NOT BE CALLED UNLESS KTPRES IS SET 
jNOTE THAI «VCODE DISABLES THE TTY KEYBOARD 



SEf^ "lie 



MVCODEl TSTB 
BNE 
RTS 
MOV 
MOV 
MOV 
MOV 
CLR 
JSP 
177572 BIS 

MOV 
MOV 
MOV 



MOV 
CLRB 

MVCODSl CLR 
JSR 

MVCODli CLRB 
MOV 
MOV 
TSTB 
BEQ 
BPL 



172304 
172306 



157410 
157376 111 



157362 llll 
157350 

172344 

172346 
157412 

172344 2|i 
172344 

?72344 

I.72J46 
172344 
172346 



MOV 

CLRB 

CMp 

BNE 

COMB 

JMP 

MOV 

CMP 

BHI 

MOV 

MOV 

HOVB 

BR 

MOV 

BIT 

BNE 

SUB 

BIC 

MOV 

ADD 

ADD 

CLRB 



KTPPES 

.♦4 

PC 

CLKHLD,R0 

CLKADR,R5 

0FFSTD,P3 

(SPnR4 

?«S5P0 

PC.KTSETO 

»BIT0,fllSSR0 

RO.CLKHLD 

RS.CLKADR 

R3,0FFSTD 

P4,WAPRST 

MOVFLG 

»TKS 

PC,CLRQUS 

XFRFLG 

#77406, •»KIPDR2 

•77406, 9#KIPDR3 

MOVING 

It 

4« 

OFFSTM, OFFSET 
MOVING 
OFFSTD, OFFSET 

lis 

MOVFLG 

MVHAP 

OFFSTD, OFFSTM 

OFFSTM, OFFSET 

21 



IKTII IN USE? 

jYES- BRANCH 

:N0- RETURN (««OVING NOT ALLOWED W/0 Kill) 

jSAVE CONTEMTS OF CIOCK CSR 

jSAVE ADR OF CLOCf CSR 

:SAVE DESTINATION OFFSET 

fSAVE RETURM PC 

;TURN OFF KTl 1 

jMAP DOWN TO BAMK 

J TURN ON KTll 

jSTOrE CONTENTS OF CLOCK CSR IN BANif o 

(STORE ADR OF CSR IN BANK 

(SET up DESTINATION OFFSET IN BANK 

[COPY OF POINTER 

; SETUP RETURN PC 

fCLEAR FLAG FOR 'ROTATED' MESSAGE 

;SHUT OUT TTY 



jCQDE PARTIALLY RELOCATED? 

;N0- BRANCH 

5 IF PARTIALLY RELOCATED, BRANCH TO 

JFINISH RELOCATION 

JIF FLAG NEGATIVE, INDICATES MOVE IS 

jDONE BUT POINTERS MOT YET RESTORED 



jSET FLAG NOT TO PRINT MESSAGE 



jPUT DESTINATION OFFSET INTO SAVE LOCATION 
»T0 PREVENT LOSING VALUE IN MIDST OF MOVING 
J IF MOVING CODE UP, BRANCH 

OFFSET, ?iKIPAB2 lIF MOVING DOWN, SETUP TO 

OFFSTM, »»KIPAR3 >D0 LOWEST BANK FIRST 

»1,MVD0MN 

MVC0D2 

LC0R12,»«K1PAB2 »IF MOVING UP, DO HIGHEST BANK FIRST 

I177,HKIPAP2 

3t 

»200,PIKIPAR2 

»177,«iKIPAR2 !IF 4K BOUNDARY, DROP TO START OF LAST BANK OF CODE 

9*KIPAR2,»IKIPAP3 

OFFSET, »«KIPAR2 

OFFSTM, »#KIPAR3 

MVDOWN 
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SEQ 0U9 



34S1 033000 



3453 

3454 
3455 

1456 
3457 
3458 
3459 

3460 
3461 
3463 

3463 
3464 
3465 
3466 
3467 
3468 
3469 
3470 
3471 
3472 
3473 
3474 
3475 
3476 
3477 
3478 
3479 
3480 
3481 
3482 
3483 
3484 
3485 
3486 
3487 
3488 
3489 
3490 
3491 
3492 
3493 
3494 
3495 
3496 
3497 
3498 
3499 
1500 
3501 
3502 
1503 
3504 
3505 
3506 



022010 
022016 
022024 
022032 
022040 
023044 
022052 
022060 
022064 
0220''0 
022074 
022076 
022100 
022104 
022106 
022114 
022120 
622J24 
022126 
022132 
022134 
033140 
022144 
022150 
022152 
022154 
022156 
023162 
022164 
022170 
022172 
022176 
022202 
022204 
022206 
022212 
022214 
022230 
022222 
022230 
022232 
022240 
022246 
022254 
022256 
022260 
(522266 
022274 
022300 
022104 
022110 
022352 
022320 
021326 



016737 
016737 
166737 
066737 
105067 
013767 
113767 
012701 
012702 
005737 
001013 
012122 
033702 
001774 
013737 
012701 
012702 
012122 
032701 
001374 
012701 
012702 
005737 
001014 
031112 
001403 
000167 
022122 
032702 
001770 
012701 
012702 
021112 
001402 
000167 
022122 
032701 
001370 
026767 
101413 
162737 
162737 
023767 
103271 
000415 
062737 
"62737 
016701 
066701 
023701 
103653 
112767 
016767 
01*737 



1S7234 
157226 
157312 
157210 
157265 
172344 
000001 
040000 
060000 
173346 



041270 
055000 
075000 



040000 
060000 
173346 



000403 
001000 



055000 
075000 



000352 

017777 

157020 

000200 
000200 
172346 



000300 
000200 
156746 
156730 
172346 



156722 
156710 



157530 
173344 
172346 
172346 
172346 

157176 
157345 



061370 



172344 

172346 
156772 



172344 

172346 



157605 
156714 
172344 



2«t 



BP 
41! Mnvn 

HOV 
MOV 
SUB 
ADD 

HVC0D2I CLPB 
HOV 
MOVB 

MVBTRYf MOV 
MOV 
TST 
BNE 

1(1 MOV 
BIT 
BEG 
MOV 
MOV 
MOV 
MOV 
BIT 
BNE 
HOV 
MOV 
TST 
BNE 
CMP 
BEQ 
JMP 
CMP 
BIT 
BEQ 
MOV 
MOV 
CMP 
BEQ 
JMP 
CMP 
BIT 
BNE 
CMP 
BI.DS 
SUB 
SUB 
CMP 
BHIS 
BP 
ADO 
AOD 
HOV 
ADD 
CMP 
BLO 

wnve 

MOV 
MOV 



MVC0D2 

«1 .xrRFLO 

M6vBNk,»tKIPAP2 

MOVBNK.flKIPARS 

OFFSET, 9IICIPAP3 

OrrSTH,||KIPAB3 

RETPY 

»#KTPAR2,M0V8NK 

»1, MOVING 

#40000, Rl 

(60000, R2 

8*KIPAR3 

2$ 

(P1)+,(R2)+ 

•1000, R3 

II 

9IBXPTR^40000,8* 

«55000,P1 

»75000,P3 

(Pl)+,(B3)+ 

117777, PI 

2$ 

•40000, PI 

160000, R3 

»tKIPAR3 

5« 

tPl),(R2) 

4( 

MVERB 

CRn + ,fB2) + 

tl000,R2 

31 

•55000, Rl 

•75000, P2 

(Pl),(R2) 

6» 

MVERP 

(Pl)+,(R2)+ 

•17777, Rl 

51 

OFFSTM, OFFSET 

?« 

»200,(>«KIPAR2 

•200,»(KIPAR3 

9IKIPAR3, OFFSTM 

MVC0D2 

HVC0D3 

•200,»«KIPAP2 

•200,»iKIPAR3 

OFFSTM, Rl 

LC0P12,P1 

»«KIPAR3,P1 

MVC0D2 

»-l, MOVING 

OFFSTM, OFFSET 

OFFSET, S»KIPAfi2 



I GO TO RC-j-^TNE THAT ACTUALLY MOVES THE CODF 
iTNDirATE A!iCTHER Pjr;i y\jtJ 31: Xk^Z 
»T0 DO DESIRED MOVE AFtER CLEANINS 
jUP LAST ONE 



fSAVE CURRENT BANK BEING MOVED 
> INDICATE MOVE IN PpOCESS 



jCOPY VECTOR AREA DOWN TO BANK 
BKPTP+60000 jCOPY BKPTB TO 
jMOVE CODE 



»NEW copy OK? 

;yES, CONTINUE 

jNO- BRANCH TO REPORT ERROR 



? INDICATE "OVE DON'E BUT POINTERS 
jNOT YET RESTORED 



OABM DEC/Xlt STANDARD MONITOR 
DXOABM.PU 2t-APR-77 12«42 
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3507 


022334 


012701 


001242 


3508 


022340 


01)2701 


040000 


1509 


022344 


016711 


156672 


3510 


022350 


105067 


156751 


1511 


022354 


105767 


156750 


1512 


022360 


001402 




1513 


022362 


004767 


002304 


3514 








1515 


022166 


005067 


156466 


1516 


022172 


112767 


000001 


1517 


022400 


105767 


156424 


3518 


072404 


001412 




1519 


022406 


000167 


177162 


1571 


022412 


016704 


15S614 


1522 


022416 


016701 


156630 


3523 


022422 


062701 


000200 


3524 


022426 


012702 


172302 


3525 


022432 


012703 


000006 


3526 


022436 


012712 


077406 


1527 


022442 


010162 


000040 


1528 


022446 


062702 


000002 


1529 


022452 


062701 


000200 


1510 


032456 


005303 




1511 


022460 


001166 




3532 


022462 


116701 


156657 


1513 


072466 


016737 


1565S0 


3534 


022474 


012706 


027212 


3535 


027500 


C05037 


177776 


3536 


022504 


105701 




3537 


022506 


100425 




1518 


022510 


032777 


001000 


1519 


022516 


001021 




1540 


022520 


104406 


024446 


3541 


022524 


004567 


172142 


3542 


022530 


001242 




3543 


022532 


001206 




1544 


022534 


001210 




3545 


022536 


016746 


156444 


3546 


022542 


016746 


156442 


3547 


032546 


004767 


170564 


3548 


022552 


012746 


022772 


1549 


022556 


004767 


164604 


3550 


022563 


010407 




1551 








3552 








3553 


022564 


105067 


156270 


3554 


022570 


112767 


000001 


3555 


022576 


010267 


156402 


3556 


023602 


104406 


024430 


3557 


022606 


104413 


001204 


3558 


022612 


016746 


156370 


3559 


022616 


016746 


156366 


3560 


023633 


004767 


170510 


3561 


032626 


012746 


022772 


3562 


032633 


004767 


164530 



172140 



156215 



MOV 

ADD 

MOV 

CLPB 

TSTB 

8E0 

JSP 



•OFFSET, Rl 

•40000, Rl 

OFFSET, (Rl) 

MOVING 

MVDOWN 

MVMSG 

PC,LOADWC 



CLP lOBKID 

MOVB #1, BRAKE 

TSTB XFRFLG 

BEQ MVMAP 

JMP MVCODl 



MHV 


M»PPET,R4 


MOV 


OFFSET, Rl 


ADD 


•200, Rl 


MOV 


»KIPDB1,R2 


MOV 


«e,P3 


MOV 


•77406, tB3) 


MOV 


R1,40(P3) 


ADD 


• 3,P2 


ADD 


•200, Rl 


DEC 


P3 


BNE 


1« 


MOVB 


H0VFLG,R1 


MOV 


OFFSET, «l»KIPARO 


MOV 


•SPBOT.SP 


CLR 


8«PSW 


TSTB 


Rl 


BMI 


21 


BIT 


«BIT9,»SP 


BNE 


2t 


MSG«,PELMSG 


JSR 


R5,T018S 


OFFSET 




MEMPA 




MCHEA 




MOV 


MEMPA, -CSPJ 


MOV 


MEHEA,-(SP5 


JSR 


PC.ITOAX 


HOV 


»ACBLF,-CSP) 


JSR 


PC, TYPE 


MOV 


R4,PC 


CLRB 


lOBKID 


MOVB 


•1, BRAKE 


MOV 


R2,MEMVA 


MSG|,RELERR 


GETPAI, 


iMEMVA 


MOV 


MEMPA, -(SP3 


MOV 


MEMEA,-(SP] 


JSP 


PC.ITOAX 


MOV 


• ACBt.r,-C8P) 


JSR 


PC, TYPE 



jSET OFFSET VALUE INTO NEW COPY 



(RELOAD WORST CASE FROM LC0R12+0FFSET 
:T0 HC0P12 



JFINAL HOVE NOT YET DONE? 

jYES- DO DESIRED MOVE NOW THAT PREVIOUS ONE 

?-M*S WW* CtEilWO l"> 
•GET RETURN PC 
jGCT NEW OFFSET 



;SeT POP TO 4K,RH,UP 
J MAP PAR TO DESIRED 4K 
jMOVE POINTER TO NEXT PAGE 
sCHANGE TO NEXT 4F VALUE 



(SAVE THE FLAG 
{CHANGE TO NEW CODE 



J OK TO PRINT MESSAGE 7 

jNO, CONTINUE 

JYES, BUT IS IT INHIBITED T 

(YES, CONTINUE 

J "CODE RELOCATED TO" 

iGET 18 BIT ADDRESS 



I TYPE ADDRESS 

IRETORH FROM MVCODE CALL 



» "RELOCATION ERROR AT" 



I TYPE ADDRESS 



SABM DEC/Xll ST»ND*BO t-'ONITOR 
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3563 


033636 


105367 


156467 


3564 


022642 


126727 


156463 


3565 


022650 


O02O0I 




3566 


022652 


000167 


177202 


3567 


023656 


104406 


034100 


3568 


022662 


104406 


033746 


3569 


023666 


000000 




3570 


022670 


000776 





SEfi 9121 



500003 



INCB RETRY 

CWPB RETRY, »3 

BGE et 

JMP MVRTRY 

MSdiFATAL 

MSG8.HIT 

HALT 

BR 71 



I "UNABLE TO RELOCATE- FATAL, RELOAD, 
t"HALT" 



QABM DEC/XU STANDARD MONITOR 
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3571 
3572 










3573 


022673 


043045 


041505 


054057 


3574 


022700 


010461 


030056 


043040 


3575 


023706 


050530 


041101 


046455 


3576 


023714 


020040 


053123 


047101 


3577 


033733 


040504 


043133 


046440 


3578 


022730 


0*7117 


053111 


051117 


3579 


033736 


000 






3580 


032737 


045 


000056 




3581 


033742 


000045 






3582 


022744 


022445 


000 




3583 


032747 


040 


053101 


000 


3584 


022753 


045 


052522 


020116 


3585 


022760 


052533 


046515 


051101 


3586 


033766 


000131 






3587 




022772 






3588 


022770 


041536 


000045 




3589 


023774 


023445 


050440 


043535 


3590 


033003 


043535 


047440 


042536 


3591 


023010 


043122 


047514 


030127 


3592 


023016 


026455 


020055 


054533 


3593 


023024 


053133 


046505 


041440 


3594 


023032 


040533 


044123 


000045 


3595 


033040 


033445 


044440 


053116 


3596 


023046 


046101 


042111 


052040 


3597 


023054 


040522 


020120 


040503 


3598 


033062 


046114 


036440 


036455 


3599 


023070 


051440 


051531 


042524 


3600 


023076 


030115 


051103 


051501 


3601 


023104 


033510 


000 




3602 


023107 


045 


047111 


040536 


3603 


033114 


044514 


020104 


047503 


3604 


033133 


046515 


047101 


033504 


3605 


033130 


000 






3606 


033131 


045 


052522 


030116 


3607 


033136 


047515 


042504 


026440 


3608 


033144 


026455 


047440 


046116 


3609 


023153 


030131 


030101 


047103 


3610 


023160 


046124 


041440 


044440 


3611 


033166 


020133 


043530 


046533 


3613 


023174 


053111 


043534 


033504 


3613 


023302 


000 






3614 


023303 


045 


051130 


043517 


3615 


033210 


040533 


030115 


040503 


3616 


033316 


047116 


053117 


043440 


3617 


023224 


030117 


044124 


052101 


3618 


023332 


044040 


043511 


033510 


3619 


023340 


000 






3630 


023241 


045 


047516 


053440 


3631 


023346 


054501 


030041 


030040 


3633 


023354 


043515 


047515 


054533 


3633 


033363 


046440 


047101 


043501 


3634 


023370 


046505 


047105 


030124 


3635 


033376 


053515 


0S3123 


041040 


3636 


023304 


02010S 


047111 


053440 
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J PURE MESSAGES 

TITLEj .ASCIZ 'IDEC/Xll. DXOAB-M STANHjiPD >inNiT1R' 



DOTt .ASCXZ '*.' 

CBl .ASCIZ •%• 

CRCRJ .ASCIZ '*»♦ 

AATi .ASCIZ • 4T' 

SUMARYi .ASCIZ 'IRUN SUMMARY* 



StO 0122 



ftrsLrB,+2 

CTRLCl .ASCIZ "CI* 

OOVRELl .ASCIZ •%% QUEUE OVERFLOW 



SYSTEM CRASH!' 



INVTPPt .ASCIZ '%* INVALID TRAP CALL --- SYSTEM CRASH%' 



INVCMDi .ASCIZ •%INVALID COMMAND%' 



INVCDll .ASCIZ '%RUN MODE — ONLY A CNTL C IS PERMITTED!' 



INVCD2I .ASCIZ 'IPROGRAM CANNOT GO THAT HIGH!' 



INVCD3i .ASCIZ •%N0 WAYl MEMORY "ANAGEMENT MUST BE IN USE%' 



QABM DEC/XU STANDAPD MONITOR 
OXQABM.PU Sl-APR-77 12(42 



3627 


02J312 


042523 


000045 




3626 


023316 


047045 


020117 


047515 


3629 


OZJ324 


052504 


842314 


C2S123 


3630 


023332 


042523 


042514 


052103 


3631 


023340 


042105 


000045 




3632 


0233*4 


044445 


053116 


046101 


3633 


023352 


042111 


040440 


042104 


3634 


023360 


027522 


040504 


040524 


3635 


023166 


000045 






3636 


023370 


046445 


042117 


046125 


3637 


023376 


020105 


040516 


042515 


363? 


023404 


047040 


052117 


043040 


3639 


023412 


052517 


042116 


000045 


3640 


023420 


020045 


020040 


045050 


3641 


023426 


046501 


051454 


053122 


3642 


023434 


050054 


040502 


041454 


3643 


023442 


040525 


0410-)4 


043514 


3644 


023450 


044457 


0521i6 


053454 


364S 


023456 


040510 


044515 


041454 


3646 


023464 


040504 


040524 


041454 


3647 


023472 


040524 


027507 


050103 


364S 


023500 


024525 


020045 


000 


364S 


023508 


04S 


041113 


043125 


1650 


023512 


047440 


046106 


000117 












jc::^ ; 


0233"" 








3652 


023526 


042530 


041522 


051511 


3653 


023534 


020105 


047514 


042101 


3654 


023542 


046440 


042105 


052511 


3655 


023550 


020115 


047531 


020125 


3656 


023556 


052515 


052123 


041440 


3657 


023564 


042514 


051101 


046C40 


3659 


023572 


041517 


032040 


022460 


3659 


023600 


000 






3660 


023601 


045 


054523 


020123 


3661 


021606 


051105 


020122 


053050 


3662 


023S14 


051111 


027124 


041520 


36S3 


023622 


050054 


053523 


051454 


3664 


023S30 


026120 


042526 


052103 


3665 


023636 


035051 


020040 


000 


3666 


023643 


045 


040503 


044103 


3667 


023650 


020105 


047105 


041101 


366A 


023656 


042514 


000104 




3669 


023662 


041445 


041501 


042510 


3670 


023670 


042040 


051511 


04U01 


3671 


023676 


042514 


000104 




36'»2 


023702 


022445 


047520 


042527 


3673 


023710 


020122 


040506 


046111 


3674 


023716 


051125 


022505 


000045 


3675 


OJ3724 


051045 


047125 


046440 


3676 


023732 


046505 


051 117 


020131 


3677 


023740 


042524 


052123 


000123 


3678 


023746 


044045 


046101 


022524 


3679 


023754 


000045 






3680 


023756 


050045 


051101 


052111 


3691 


023764 


020131 


047105 


041101 


3682 


023772 


042514 


000104 
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INVCD4i .ASCIZ 'tNd MODULES SELECTED%' 



INVADRl .iSCIZ '*INVALID ADOP/OATA*' 



INVNAMl .ASCIZ '%MODULE NAME NOT FOUND*' 



SVSEPli .ASCIZ '% CJA«,5BV,PBAtC!U,FLG/INT,'»H&«I,COATA»CTSG/CP'J3% 



KSOFliui tAoCtZ '%KBur OrLO' 

0ii.oAfit Kent »«.«.Tn cYPo^Tier T.nRn ucriTtiM vnTT uTifiT rr.raB T.nr dna* 



SEO 0123 



SYSERPJ .ASCIZ •%SVS ERR C VlRT.PCi PSW»SP, VECT5 j 

CONNi .ASCIZ 'tCACHE ENABLED' 

SuFFFj .ASCIZ '%CACKE DISASLEB' 

PWRFAII .ASCIZ '%%POWEF FAILURE**' 

MEMCHGl .ASCIZ 'IPUN MFMORy TESTS' 

HLT» .ASCIZ 'IHALT**' 

PENABLi .ASCIZ 'iPAPITY ENABLED' 



OABM DEC/Xn STANDARD MONITOR 
DX0ABM.P11 21-APP-77 12j42 



36fi3 


073776 


047045 


020117 


052113 


3684 


024004 


030461 


000 




1685 


024007 


045 


052113 


030461 


3686 


024014 


047440 


043106 


000 


3687 


024021 


045 


047516 


050040 


3688 


024026 


051101 


052111 


000131 


3689 


024034 


050045 


051101 


052111 


3690 


024042 


020131 


043117 


000106 


3691 


024050 


022445 


052113 


030461 


3692 


024056 


040440 


047502 


052122 


3693 


024064 


026440 


026455 


043040 


3694 


024072 


052101 


046101 


000045 


3695 


024100 


052445 


040516 


046102 


3696 


02410.6 


020105 


047524 


051040 


3697 


024U* 


046105 


04'V5l7 


052101 


3698 


024122 


026505 


043040 


052101 


3699 


024130 


O46J01 


020056 


042522 


3700 


024136 


047514 


042101 


022440 


3701 


024144 


000 






3702 


024145 


045 


022445 


025045 


3703 


024152 


025052 


052040 


047517 


3704 


024160 


046440 


047101 


020131 


3705 


024166 


054523 


020123 


051105 


3706 


024174 


047522 


051522 


026440 


3707 


024202 


026455 


042440 


042530 


3708 


024210 


041522 


051511 


020105 


3709 


024216 


041101 


051117 


042524 


37in 


024224 


022504 


000045 




1711 


024310 


041445 


047514 


045503 


3712 


024236 


046440 


042117 


046125 


3713 


024244 


020105 


051104 


050117 


3714 


024252 


042520 


02'»104 


040440 


3715 


^24260 


046114 


052040 


046511 


3716 


024266 


047111 


020107 


052506 


3717 


024274 


041516 


044524 


047117 


3718 


024302 


020123 


044504 


040523 


3719 


024310 


04*102 


042105 


022456 


3720 


024316 


000 
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NOKTI .ASCIZ '*N0 Kit] • 

KTDISl .ASCIZ '*KT11 OFF' 

NOPARl . ASCIZ '*N0 PARITY' 

PAOFFj .ASCIZ '*PARITY OFF' 

KTFATLt .ASCIZ •**KT11 ABORT --- FATAL*' 

FATAL) .ASCIZ '*UNABLE TO RELOCATE- FATAL. RELOAD *' 



SVSBADJ .ASCIZ '****••• TOD MANY SYS ERRORS --- EXERCISE ABORTED**' 



IIMXll .ASCIZ **CLOCK MODULE DROPPED, ALL TIMING FUNCTIONS DISABLED.*' 



QABX DEC/XIl STANDtRD MDNITOP 
DXQ»BM.Pn 1I-APB-77 13|42 



MUCYll 87(10065 J3-»PP-77 OOMl P*CB 123 



SE<3 0125 



3721 
3733 
3723 
3724 
3725 
3726 
3727 
3728 
3729 
3730 
373t 
3732 
3733 
3734 
3735 
3736 
3737 
3738 
3739 
3740 
3741 
3742 
3743 
3744 
3745 
3746 
3747 
3748 
3749 
3750 
3751 
1752 
3753 
3754 
3755 
3756 
3757 
3758 
3759 
3760 
3761 
3762 
3763 
3764 
3765 
3766 



024317 
024324 
n?4332 
024340 
024346 
024354 
024362 
024370 
024376 
024404 
024412 
024420 
024476 
024434 
024442 
024446 
024454 
024462 
024465 
024472 
024500 
024503 
024505 
024512 
024520 
024526 
024534 
024542 
024550 

n?4t,55 
02'i562 
024570 
024576 
024604 
024612 
024615 
024622 
024630 
024633 
024640 
024646 
024654 
024662 
024670 



04S 
054523 
41440 
026455 
040524 
030440 
051117 
041440 
052516 
030122 
047514 
051045 
052101 
051105 
052101 
051045 
052101 
020117 

045 
046505 
035105 

113 

045 
020105 
051105 
052101 
047105 
027104 
042507 

045 
020105 
051105 
052101 
044504 
042105 

045 
042440 
042105 

045 
044103 
051511 
052101 
020056 
000045 



047045 
052123 
047514 
051055 
053122 
030060 
044040 
047U7 
030105 
047516 
045503 
046105 
047511 
047523 
000040 
046105 
043105 
000 
054533 
051440 
000 
000 
051137 
053502 
051040 
047511 
041101 
051040 
020072 

051)27 
052502 
051040 
047511 
040523 

000 
053113 
040516 

000 
053523 
051040 
042524 
046040 
030061 



020117 
046505 
045503 
051505 
040040 
030060 
053111 
044524 
047506 
041440 
000045 
041517 
020116 
020122 

041517 
052040 

053123 
055111 



0521U 
043106 
052117 
020116 
043514 
047101 
000 

052111 
043106 
053117 
020116 
046102 

030461 
046103 

053111 
043505 
030132 
041517 
032060 



NOCLKl .JSCIZ •%%N0 SYSTEM CLOCK. — RESTART « IQOO OR HIT CONTINUE TOR NO C1.0CK%' 



FELBRRi .ASCIZ '%PEI,OC*TION ERROR AT 



RELKSGJ .ASCIZ •%PELOCATED TO 



SySSIZl .ASCIZ '*S¥STEM SIZE»' 



KAYl 

RDTENBi 



.ASCIZ 
.ASCIZ 



'tWBITE BUFFER ROTATION ENABLED, RANGEl 



ROTDISl .ASCIZ '%WPITE BUFFER POTATION DISABLED' 



KTONMi .ASCIZ '*KT11 ENABLED* 



NOSWRl .ASCIZ •%SWITCH REGISTER AT LOC . 1004*' 



.EVEN 



QAB*! DEC/Xn Siv,:n»nj "owlTOR MJCYll 27(1006) 23-APR-77 
DXOABM.ptl Ji.ApiJ.77 12|43 
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3767 
3768 
3769 
3770 
3771 
3772 
3773 
3774 
3775 
3776 
3777 
3778 
3779 
3780 
3781 
3782 
3783 
3784 
3785 
3786 
3787 
3788 
3789 
3790 
3791 
3793 
3793 
3794 
3795 
3796 
3797 
3798 
3799 
3800 
3801 
3803 
3803 
3804 
3805 
3806 



iROUTIVr TO LOAD WORST CASE UNIBUS PATTERN IN ALL FPEF MEMORY 



024672 

0346"' »■ 
074707 
0?<"06 
0317" 
024 'M 

0247;n 

024724 
024730 
024732 
024736 
02474? 
n2471« 
0247!:'- 
024751 
024754 
02476C 
024764 
024766 
02477? 
024774 
024776 
O2500i 
025004 

025006 
025014 
025022 
025026 
025034 
025042 
025046 
025054 
025062 
025066 
025074 
025102 
025106 



0044«7 

|'i67n2 

'•■"1*25 
"16700 
012704 
105767 
001404 
012700 
010367 
012703 
'11*420 
01 '. 3(!1 
no 375 
OriTnl 

02r:s7 

002403 
0C4-67 
f r ; T 7 

i" ">■)?'! 

■. : <31 

la:; if] 

O0P745 

177776 
000002 
177767 
177757 
000040 
177577 
177377 
001000 
173777 
167777 
020000 
077777 



170042 
154322 

154334 
154314 

iS4300 
025006 
154354 

040000 
145402 

000400 



'lOfiOlO 
154242 



If neo 

C25106 



000001 
177773 
000010 
000030 
177677 
000300 
000400 
175777 
004000 
010000 
137777 
100000 



177775 
000004 



177737 
000100 



176777 
003000 



157777 

040000 



LOADH 


Cj JSR 


R4|,SAV04 




MOV 


LCOP12,R2 




ADD 


OFFSET, P2 




CMP 


HC0P12,R2 




BEO 


81 




MOV 


LOCORE.PO 


3ii 


MOV 


•WCASErP4 


3«l 


TSTB 


KTPRES 




BEO 


58 


411 


MOV 


#40000, PO 




MOV 


R2,KIPAP2 


5«l 


MOV 


•256. ,P3 


611 


HOV 


(R4),(R0)* 




DEC 


R3 




BNE 


6« 




ADD 


«10,R2 




CMP 


P2,HC0P12 




BLT 


7« 


811 


JSP 


PC,P5T04 




RTS 


PC 


7$l 


TST 


CP4) + 




CMP 


P4,»WCASEE 




BLO 


3B 




BR 


2S 



JSETUP 12 PIT STARTING ADDRESS 

J ANY MEMORY TO !,OAD 7 

INO, GET OUT 

JIF NO KTll, PO WILL CONTAIN PHYSICAL ADDRESS 

I LOAD ADDRESS OF WORST CASE DATA TABLE 

jUSF KT117 

jND- BRANCH 

JSET VIRTUAL ADDPESS TO THE START OF PAGE 2 

JMAP PAGE 2 TD PHYSICAL ADDRESS 

SSET UP COUNTER 

;LOAD DATA 



jAFTEP EACH 256 V.DRDS, REMAP 

JDONE? 

»H0- BRANCH 

JYFS- EXIT 

;MOVE DATA POINTER 

STO NEXT WORST CASE VALUE 

lAND CONTINUE 



WCASEI .WORD 177776,1,177775,2,177773,4,177767.10 

.WORD 177757,30,177737,40,177677,100,177577,300 

.WORD 177 377,400.176777,1000,175777,2000,173777,4000 

.WORD 1677 77,10000,157777,30000,137777,40000,77777,100000 



QABM DCC/Xll 5TANDAPD 


MONITOR 


DXQA6M, 


Pll 21-APB-77 


12142 


3807 
















JOWO 








3809 








3810 


025106 






3811 


025106 






3812 


025106 


052522 


046116 


3813 


025114 


010700 




3814 


025116 






3815 


025116 


052522 


000116 


3816 


025124 


010710 




3817 


025126 






3818 


025126 


047515 


000104 


3819 


025134 


013222 




3820 


025136 






3821 


025136 


042523 


000114 


3822 


025144 


012462 




3823 


025146 






3824 


025146 


042504 


000123 


3825 


025154 


012500 




3826 


025156 






3827 


025156 


040515 


000120 


3S23 


025184 


012314 




3829 


025166 






3S3Q 


e2S«,66 


044506 


046114 


3831 


025174 


013214 




3832 


025176 






3833 


025176 


052113 


043117 


3834 


025206 


012562 




3835 


025210 






3836 


025210 


052113 


047117 


3837 


025216 


012632 




3838 


025220 






3839 


025220 


047520 


000116 


3840 


025226 


013004 




3841 


025230 






3842 


025230 


047520 


043106 


3843 


025236 


013044 




3844 


025240 






3845 


025240 


047522 


047524 


3846 


025250 


012744 




3847 


025252 






3849 


025252 


047S22 


047524 


3849 


025260 


000 




3850 


025262 


012760 




3851 


025264 






3852 


025264 


050114 


047117 


3853 


025272 


021110 




3854 


025274 






3855 


025274 


047503 


ooous 


3856 


025302 


013130 




3857 


025304 






3858 


025304 


047503 


043106 


3859 


025312 


013170 




3960 


025314 


ni5 


000 


3861 


025316 


004 


000 


386? 


025320 


010S46 
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jCOHNAKO TABLE. KEYBOARD COMMANDS ARE MATCHED AGAINST IT, 



SEQ 0127 



COMTABi 



000116 



543106 



TORN 


*"RUNL",PUNL 


.A8CIZ 


%PUNL% 


.WORD 


RUNL 


TOKN 


-"RUN", PON 


.AGCIZ 


%PUN% 


.WORD 


BUN 


TOKN 


••MOD", MOD 


.A8CIZ 


%HbD% 


.WORD 


MOD 


TOKN 


*"SEL",SEL 


.ASCIZ 


%SEL% 


.WORD 


SEL 


TOKN 


*"DES",DES 


.ASCIZ 


%DES% 


.WORD 


DES 


TOKN 


-"MAP", MAP 


.ASCIZ 


%MAP% 


.WORD 


MAP 


TOKN 


•"FILL", FILL 


•ASCIZ 


%FILL.% 


.WORD 


FILL 


TOKN 


-"KTOFF'.KTOFF 


.ASCIZ 


%KTOrF% 


.WORD 


KTOFF 


TOKN 


•"KTON»,KTON 


.ASCIZ 


%KTON% 


.WORD 


KTON 


TOKN 


*"P0N",P0N 


.ASCIZ 


kPbv% 


.WORD 


PON 


TOKN 


•"POFF",POFF 


.ASCIZ 


%POFF% 


.WORD 


POFF 


TOKN 


•■ROTON",POTON 


.ASCIZ 


%ROTON% 


.WORD 


FOTON 


TOKN 


-"POTOFF",ROTOFF 


.ASCIZ 


%ROTOFr% 


.WORD 


POTOFF 


TOKN 


•"LPON",LPON 


.ASCIZ 


%LPON% 


.WORD 


LPON 


TOKN 


-"CON", CON 


.ASCIZ 


%CON% 


.WORD 


CON 


TOKN 


*"COFF",COFr 


.ASCIZ 


%COFF% 


.WORD 


COFF 


.BYTE 


15.0 i 


.BYTE 


4,0 


.WORD 


C0MC02 
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3863 025322 000000 000000 OOOOOO 
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)864 










■IMPURE 


MESSACEi 


, 


3S65 
















3866 


025330 


050045 


051101 


052111 


PERRII 


•ASCII 


'%PARITV ERROR 


3867 


025336 


020131 


051105 


047522 








3868 


025344 


020122 


020040 










3869 


025350 


020040 


030040 


020040 


PRGSi 


.ASCII 


/• 


3870 


025356 


057 












3871 


025357 


040 


020040 


020040 


PCONTi 


.ASCII 


' • 


3872 


025364 


040 












3873 


025365 


040 


020040 


052523 


RUNDUi 


.ASCIZ 


RUN PARITY/MEM 


3874 


025372 


020116 


040520 


044522 








3875 


025400 


054524 


046457 


046505 








3876 


025406 


051117 


020131 


044504 








3877 


025414 


043501 


047516 


052123 








3878 


025422 


041511 


022523 


000 








3879 


025427 


045 


040530 


044522 


PERR2I 


.ASCIB 


'%PARITy ERROR — 


3880 


025434 


054524 


043440 


051122 








3881 


025442 


051117 


036440 


026455 








3882 


025450 


024040 


040512 


026115 








3883 


025456 


051123 


026126 


041120 








3884 


025464 


036101 


052503 


036101 








3885 


025472 


046106 


027507 


047111 








3886 


025500 


026124 


044127 


046501 








3887 


025506 


026111 


042103 


053101 








3868 


025514 


026101 


052103 


043501 








3889 


025522 


041457 


052530 


033451 








3890 


025530 


000 












3891 


025531 


045 


054523 


053123 


NUMSYSI 


.ASCIZ 


'%SYSTE« ERRORS! • 


3892 


025536 


046505 


042440 


051122 








3893 


025544 


051117 


035123 


000 








3894 


025551 


040 


020040 


020040 


NUWPWPj 


.ASCIZ 


• POWER PAIlSl 


3895 


025556 


047520 


043537 


020122 








3896 


025564 


040506 


046111 


035123 








3897 


025572 


000 












3898 


025573 


045 


020040 


020040 


ftMODNMJ 


.ASCII 


•% AT ' 


3899 


025600 


020040 


052101 


O40 








3900 


025605 


040 


020040 


020040 


APCl 


.ASCII 


' STAT • 


3901 


025612 


020040 


052123 


052101 








3902 


025620 


040 












3903 


025621 


040 


030040 


020040 


AMDSTAI 


.ASCII 


• ' 


3904 


025626 


040 












3905 


025627 


040 


050040 


051501 


MOIREl 


.ASCII 


• PASCNT ' 


3906 


025634 


047103 


020124 










3907 


025640 


020040 


020040 


027040 


APSCNTl 


.ASCII 


. ERRCNT ' 


3908 


025646 


020040 


051105 


041522 








3909 


025654 


052116 


040 










3910 


025657 


040 


020040 


030040 


AERRSi 


.ASCIZ 


* ,' 


3911 


025664 


000056 












3912 




025667 






.000 






3913 


035667 


040 


020040 


020040 


H0LD5I 


.ASCIZ 


' ' 


3914 


025674 


000 












3915 


025675 


040 


020040 


020040 


H0LD6I 


.ASCIZ 


' ' 


3916 


025702 


020040 


000040 










3917 


025706 


030040 


020040 


020040 


HOLDS 1 


.ASCIZ 


' ' 


3918 


025714 


020040 


020040 


000 








3919 


025721 


040 


020040 


020040 


ACNDI 


.ASCII 


• PC-' 



(JAM,SPV,PBA,CUA,FLG/IST,WHaMI,CDAIA,CTAG/CPU)*' 
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3920 


025736 


030040 


041520 


055 










3921 


025733 


040 


020040 


030040 


AENDli 


.ASCII 




APC-' 




025740 


020040 


050101 


036503 












025746 


020040 


020040 


020040 


AEND3I 


.ASCIZ 




• 




025754 


000040 
















025756 


020040 


040520 


051523 


tPASSi 


.ASCII 


PASS* • 




025764 


020043 
















025766 


020040 


020040 


037040 


APASSI 


.ASCIZ 




• 




025774 


000 
















025775 


040 


051104 


050117 


MODENDt 


.ASCIZ 


DPOPPED%' 




026002 


042520 


032504 


000 












026007 


105 


042116 


040520 


APSENOI 


.ASCII 


EKDPAS 


• • 




026014 


026523 
















026016 


020040 


020040 


027040 


BPSCNTj 


.ASCIZ 




• 




026024 


000 
















026025 


045 


020040 


020040 


TIMXI 


.ASCIZ 


% 


IS HU 




026032 


020040 


051511 


044040 












036040 


047135 


027107 


046440 












026046 


042117 


046125 


020105 












026054 


051104 


050117 


043530 












026062 


037104 


000045 














026066 


051040 


047135 


044534 


TOTIMj 


.ASCII 


RUNTIME-' 




026074 


042515 


055 














026077 


040 


030040 


072 


THRSi 


.ASCII 


1 ' 






026103 


040 


035040 




TMINSi 


.ASCII 


:' 






026106 


020040 


000 




TSECSl 


.ASCIZ . 


' 






026111 


040 


051530 


044524 


PSTIMi 


.ASCII 


PSTIME-' 




026116 


042515 


055 














036121 


040 


035040 




MMINSt 


.ASCII 


I' 






036124 


020040 


000045 




MSECSl 


.ASCIZ 


%' 






026130 


041445 


051133 


020101 


AERRORl 


.ASCII 


%CSRA 


' 




026136 


020040 


030040 


020040 


ACSRACt 


.ASCII 




CSRC 




026144 


041440 


051123 


020103 












026152 


020040 


020040 


020040 


ACSRCf 


.ASCII 




STATC 




026160 


051440 


040524 


041524 












036168 


040 
















026167 


040 


020040 


020040 


ASTATCi 


.ASCIZ 




' 




036174 


020040 


000 














036177 


045 


051503 


040522 


ADTGRRt 


.ASCII 


%CSRA 


' 




036304 


040 
















036305 


040 


020040 


020040 


ADTE6I 


.ASCII 




S/B ' 




026212 


030040 


027523 


020102 












026220 


030040 


020040 


020040 


ADTG3i 


.ASCII 




HAS ' 




026226 


053440 


051501 


040 












036333 


040 


020040 


020040 


ADTE3I 


•ASCII 




WRADR 




036240 


030040 


051127 


042101 












026246 


030133 
















026250 


030040 


020040 


020040 


ADTG5I 


.ASCII 




RDADR 




026256 


051040 


040504 


051104 












036264 


040 
















036265 


040 


020040 


020040 


A0TE4I 


.ASCIZ 




' 




036272 


030040 


000 














026275 


040 


040504 


040534 


ADTE4Ai 


•ASCIZ 


DATA 


ERROR' 




036302 


043440 


051133 


051117 












036310 


000 
















036311 


127 


051117 


021504 


ADTEXi 


•ASCII 


WORD* 


' 



IS mUG, MODULE DPOPPED.%' 
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SEO 0131 



3976 


026316 


040 
















3977 


026317 


040 


020040 


020040 


ADTETj 


.ASCIZ 




= *' 




3978 


026324 


022456 


000 














3979 


026327 


040 


051105 


021522 


ERRNMBi 


.ASCII 


' EPRI 


( • 




3980 


026334 


040 
















398; 


026335 


040 


020040 


020040 


AERNMBj 


.ASCIZ 




» 




3982 


026342 


000056 
















3983 


026344 


046445 


046505 


043040 


MEPRli 


.ASCII 


•%MEH 


FAILURE- PA ' 




3984 


036352 


044501 


052514 


042522 












398S 


026360 


020055 


040520 


040 












3986 


026365 


040 


020040 


020040 


MERR2t 


.ASCII 




S/B ' 




3997 


026372 


020040 


027523 


020J02 












3988 


026400 


020040 


020040 


020040 


HERP3t 


.ASCII 




WAS ' 




3989 


026406 


053440 


051501 


040 












3990 


026413 


040 


020040 


020040 


MERP4t 


.ASCIZ 




» 




3991 


026420 


020040 


000 














3992 


026423 


045 


02"J40 


020040 


AERNMt 


.ASCII 


•% 


HAD • 




3993 


026430 


020040 


040S*0 


020104 












3994 


026436 


020040 


020040 


027040 


AEPCTt 


.ASCII 




. DATA ERRORS OUT 


OF 


3995 


026444 


042040 


052101 


020101 












3996 


026452 


051105 


047522 


051522 












3997 


026460 


047440 


052125 


047440 












3998 


026466 


030106 
















3999 


026470 


020040 


020040 


027040 


AERTOTi 


.ASCIZ 


• 


, WORDS READ*' 




«ODU 


oaie4"?b 


053*40 


OSI 11? 


051504 












4001 


026504 


051040 


040505 


022504 












4002 


026512 


000 
















4003 


026513 


040 


040 


040 


OECVALt 


.BYTE 


40.40, 


40,40(40,40 




4004 


026516 


040 


040 


040 
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SEQ 0132 



4005 






4006 






4007 




026522 


4009 


07652? 




4009 


026712 




4010 


026752 


000014 


4011 


037002 


000004 


4012 


027012 




4013 


027012 


000100 


4014 


077212 




4015 


027212 


000020 


4016 


02775? 




4017 


027252 


000620 


4018 


O30n72 


001130 


4011 






4020 


03122? 


000000 


4021 


031224 


000000 


4022 


031226 


OOOOOO 


4023 


031230 


floonoo 


4024 


031232 


OOOOOO 


4025 


031234 


nooooo 


4026 


031236 


OOOOOO 


4027 


03124" 


OOOOOO 


4020 


031242 


OOOOOO 


4039 


031244 


OOOOOO 


4030 


031246 


OOOOOO 


4031 


031750 


OOOOOO 


4032 


031252 


OOOOOO 


4033 


011254 


oooonn 


4034 


031756 


010000 


4035 


031260 


OOOOOO 


4036 


03176? 


OOOOOO 


4037 


031264 


OOOOOO 


4038 


031266 


OOOOOO 


4039 


031270 


OOOOOO 


4040 


031772 


OOOOOO 


4041 


031274 


OOOOOO 


4042 


031276 


OOOOOO 


4043 


031300 


OOOOOO 


4044 


031302 


OOOOOO 


4045 


031304 


OOOOOO 


4046 


031306 


OOOOOO 


4047 


O31310 


OOOOOO 


4048 


031312 


OOOOOO 


4049 


031314 


OOOOOO 


4050 


031316 


OOOOOO 


4051 


031320 


OOOOOO 


4052 


031322 


OOOOOO 


4053 


031324 


OOOOOO 


4054 


031326 


OOOOOO 


4055 


031330 


OOOOOO 


4056 


031332 


OOOOOO 


4057 


031334 


OOOOOO 


4058 


031336 


OOOOOO 


4059 


031340 


OOOOOO 


4060 


031342 


OOOOOO 



iBUFFEP AREAS. 



MOOQI 
K8UF! 



USPl 
SSP! 



SPSPKCi 

lOQl 

TYPEOl 



.EVEN 



.BLKW 
.BLKW 

.BLKW 

,BLKW 

.PLKB 
.RDKB 

nPEN 

OPEM 
OPEW 
OPEN 
OPEN 
OPEN 
OPEN 
OPEN 
OPEN 
OPEN 
OPEN 
OPEN 
OPEN 
OPEN 
OPEN 
OPEN 
OPf N 
OPEN 
OPEN 
OPEN 
OPEN 
OPEN 
OPEN 
OPEN 
OPEN 
OPEN 
OPEN 
OPEN 
OPEN 
OPEN 
OPEN 
OPEN 
OPEN 
OPEN 
OPEN 
OPEN 
OPEN 
OPEN 
OPEN 
OPEN 
OPEN 



64. 
16. 



lOOL 
TYBOL 



;POON FOP 60 MODULE POINTERS 
jKEYBOAPC BUFFER. KBUFL LONG 



;MONIT0P STACf AREA 
JSPECIAL MONITOR STACK AREA 



(PATCH 


SREA 


f PATCH 


AREA 


SPATCH 


AREA 


jPATCH 


AREA 


jPATCH 


AREA 


(PATCH 


AREA 


(PATCH 


AREA 


JPATCH 


AREA 


(PATCH 


AREA 


(PATCH 


AREA 


(PATCH 


AREA 


(PR^CW 


AREA 


(PATCH 


AREA 


(PATCH 


AREA 


(PATCH 


AREA 


(PATCH 


AREA 


(PATCH 


AREA 


(PATCH 


AREA 


(PATCH 


AREA 


(PATCH 


AREA 


(PATCH 


AREA 


(PATCH 


AREA 


(PATCH 


AREA 


(PATCH 


AREA 


(PATCH 


AREA 


(PATCH 


AREA 


(PATCH 


AREA 


(PATCH 


AREA 


(PATCH 


AREA 


(PATCH 


AREA 


JPATCH 


AREA 


(PATCH 


AREA 


(PATCH 


AREA 


(PATCH 


AREA 


(PATCH 


AREA 


JPATCH 


AREA 


(PATCH 


AREA 


(PATCH 


AREA 


(PATCH 


AREA 


JPATCH 


AREA 


(PATCH 


AREA 
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406J 


031J44 


flOOOOO 


4062 


031346 


000000 


4063 


031350 


000000 


4064 


031352 


000000 


406S 


031354 


000000 


4066 


031356 


000000 


4067 


011360 


ooeooe 


4068 


011362 


000000 


4069 


011364 


000000 


4070 


031366 


000000 


4071 


031370 


000000 


4072 


031372 


000000 


4073 


0113''4 


000000 


4074 


031376 


000000 


407S 


031400 


000000 


4076 


031402 


000000 


4077 


031404 


000000 


4078 


Q31406 


000000 


4079 


031410 


000000 


4080 


031412 


000000 


4081 


031414 


onooon 


4082 


03)416 


oooooc 


4083 


035420 


000000 


4084 






4085 


031422 


000200 


4086 






4087 




032022 


4088 




124037 


4089 







'**CyiI 27(1006) 23-APB-77 OOJl! PAGE 131 



OPSN 
OPEN 
OPEN 
OPEN 
OPEN 
OPEN 
OPEN 
OPEN 
OPEN 
OPEN 
OPEN 
OPEN 
OPEN 
OPEN 
OPEN 
OPEN 
OPEN 
OPEN 
OPEN 
OPEN 
OPEN 
OPEN 
OPEM 

IjOGRUFj .BLKW 



BUrSIZ»SMO0NH-STA»T 



SEQ 0133 



J PATCH 


AREA 


> PATCH 


AREA 


(PATCH 


APEA 


(PATCH 


AREA 


(PATCH 


AREA 


(PATCH 


AREA 


(PATCH 


APEA 


(PATCH 


AREA 


(PATCH 


AREA 


(PATCH 


AREA 


(PATCH 


AREA 


(PATCH 


AREA 


(PATCH 


APEA 


(PATCH 


APEA 


(PATCH 


APEA 


(PATCH 


AREA 


(PATCH 


AREA 


(PATCH 


ARFA 


(PATCH 


AREA 


(PATCH 


AREA 


(PATCH 


APEA 


(PATCH 


APEA 


(PATCH 


AREA 



rBUFEER HOLDS LAST COPY TAKEN OF 11/60 LOG 
(FIRST ADDRESS AFTER OUEUFS 
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4090 










(ROUTIK 


r TO RET 


«:BMINE WHETHER 


4091 










(AND TO 


DETERMINE CORE LIMITS 


4092 










(RTI OP 


RTT INSTRUCTION, 


40?5 




0272!, 








,«1P0 




4094 


027752 


01276' 


•, . ; 7 7 ij 


150530 


SETPU'l 


MOV 


ns.PESIV 


409S 


027^60 


00504* 








CLP 


-(SP) 


4098 


027252 


n274i 


^?737^ 






XOV 


•5S.-(SP) 


4097 


027?66 


ooooos 








RTT 




4098 


027270 


012767 


ifiooo; 


15S410 


ISl 


MOV 


#RTI,TRCIA 


4099 


027276 


012767 


000002 


153632 




MOV 


•RTlrPTTl 


4100 


027304 


016767 


152060 


152066 




MDV 


CHKL2,CHKL1 


4101 


027312 


016767 


152054 


152062 




MOV 


CHKH2»CHKH1 


4102 
















4103 


oj-;3:o 


' ;■ ? « 7 


'.i7S 


150462 


3S( 


MOV 


»pf:sint,resiv 


4104 
















4105 


027126 


ji'iSf- 


i "2001 






CLPB 


MDI,45 


4i06 


027?}? 


r. : "^ 1 f '/ 


'■i\t,i 


1^0444 




MDV 


«1S,BUSEV 


4107 


027140 


i)nr-737 


)77772 






TST 


««PIRQRG 


4108 


021344 


112767 


000001 


151 '61 




rtOVB 


»1,»'DL45 


4109 


027352 


105067 


151725 




III 


CLRB 


KTPPES 


4110 


027*56 


012767 


O27402 


150420 




MOV 


*4S,BUSEV 


4U1 


027364 


005017 


177572 






CLR 


9ISSR0 


4112 


027370 


105!fc7 


)51710 






COMB 


KTPRES 


4113 


027,7 4 


1"»767 


151704 


151670 




MOVP 


KTpRESjKTSAV 


4114 


027(02 


013767 


0)5246 


150374 


4tl 


HOV 


#BUSERR,BUSEV 


4115 


027410 


005067 


150362 






CLR 


PSW 


4116 


027414 


105067 


151673 




STBFAi 


CLBB 


ROTI 


4117 


027420 


105067 


151671 






CLRB 


RELOC 


4118 


r)I7424 


iieTE? 


iSOSSO 


i?:*;** 




MOV 


OjL'^CORE 


4119 


027432 


001004 








BNE 


1$ 


4120 
















4121 


027434 


005167 


151560 






COM 


LOCORE 


4122 


027440 


000167 


000420 






JMP 


SETXT 


4123 


027444 


004567 


165152 




iti 


JSR 


R5,T0P12S 


4124 


027450 


001220 








LOCQRE 




4125 


027452 


032767 


000777 


151540 




BIT 


»777, LOCORE 


4126 


027460 


0D1414 








BEQ 


2» 


4)27 


027462 


042767 


000777 


151530 




BIC 


#777, LOCORE 


4128 


027470 


0427S.7 


000007 


151526 




BIC 


»7,LCOR12 


4129 


027476 


062767 


obiooo 


151514 




ADO 


#1000, LOCORE 


4130 


127504 


062767 


000010 


151512 




ADD 


t)0,LCQR12 


4131 


027J12 


1!6767 


150324 


151506 


2(1 


MOV 


42,HCOR12 


4132 


027520 


001401 








BED 


KTTEST 


4133 


027522 


112767 


177777 


151562 




MOVE 


»-l,CHN 


4134 


027530 


105787 


151550 




KTTESTs 


TSTB 


KTPPES 


4135 


027534 


001035 








BNE 


SETKT 


41)6 


027536 


012787 


027600 


1502*0 




MOV 


»5S,4 


4117 


027-544 


IS •:-■" 


174101 






MOV 


l-4000iRO 


4138 


0'''"55'5 


'i.i!5-w-i 








CtR 


Rl 


4139 


127 IS? 


,,. 51 - 


0J430C 




Mt 


ADD 


*4000,R0 


4140 


O" '^** 


)?; • 


1^' anft 






ADD 


»0,fR0) 


4141 


f>-f$^7 


i)- 4 - ■ ; 








INC 


P) 


4142 
















4143 


027$64 


nf'i '")i 


7)0334 






CMP 


128. >R1 


414* 


5373715 


s'^yn^ 








BNE 


41 


41,«S 


'•tijTi 


06?"i? 


<->1iS00O 






ADD 


•4000, RO 



WBITE BUFFEP ROTATION SHOULD TAKE PLACE, 

OF BUFFEP pnt&TIQH. ALSO TO DETERMINE USF OF 



SET up A RESERVED INSTRUCTION TRAP. 
CLFAP A •OBD 0« THE STACK FOR A NEW PS- 
SET UP rn EXIT WITH PTT INSTRUCTION. 
IF RTT VOT VALID IT WILL TRAP OUT, 
TRAP CP»'FS HERE. CHANGE RTT'S TO RTI'S. 

RY SETTING THE INSTRUCTION VALUE 
CHANGE SET OF CHKSUM WORDS BECAUSE 
OF RTI'S REPLACING PTT'S 
OF ALL PTT'S TO THOSE OF RTI'S 
RESTORF THE RESERVED INSTRUCTION TRAP VECTOR 

CLEAR T".r. PDP-ll/4fi INDICATOR 
SET UP A NDN-EXISIFNT ADDRESS TRAP 
IS THE PROGRAMMED INTERRUPT REQUEST REGISTER 
IF IT IS, SET THE FLAG INDICATING AN 11/45 
CLEAR THE "EMORY MftNAGEMENT INDICATOR 
SET UP A NON-EXISTENT ADDRESS TRAP 
IS THERE A KT-11 ON THIS SYSTEM? 
IF THERE IS, SFT THE KT11 PRESENT INDICATOR 
SAVE FOP USE I-J SECOND PASS OF CHAINING 
REPLACE THE BUS ERROR TRAP VECTOR 
RESET THE PSW 
ASSUME NO BUFFER ROTATTOK-. 
ASSUME NO CODE RELOCATION 
GET' LOCORE ADD», FROM IOC 
BP ir LINKED WITH CONFIG/LINKER PROGRAM 
IF NOT ASSUMES NOT IN CHAIN MODE 
INDICATE SETBUF HAS BEEN RUN 
GO PREPARE TO EXIT SETBUF ROUTINE 
GET TOP 12 BITS OF LOCORE PHYS ADDR 
AND PUT IT INTO LC0R12 
IS IT ON A 256 WORD BOUNDARY 7 
YES, CONTINUE 
NO, CLEAR OUT LOWER BITS 

ROUNDING OFF TO NEXT HIGHEST 256 BOUNDARY 
ROUND UP TO THE NEXT 256 WORD BOUNDARY 
ALSO INDICATE THAT BOUNDARY IN L0C0P12 
ARE WE IN CHAIN MODE? 

IF NO, GO DETERMINE IF KI IS TO BE USED 
IF YES, SET THE CHAIN INDICATOR 
IS THE KTll AVAILABLE FOR USE? 
IF YES, GO SIZE MEMORY USING IT 
IF NO, ONLY SIZE MEMORY UP 10 28K 
INITIALIZE LOOP COUNTER TO POINT TO BANK 
INITIALIZE THE COUNTER OF IK CHUNKSCBANKS) 
POINT TO THE FIRST WORD IN THE NEXT IK BANK 
WILL TRAP IF LOC DOESN'T EXIST 
IF NO, CONTINUE PROCESING AT 4S 
IF YES, UP THE MEMORY BANK COUNT 
HAVE 28 BANKS BEEN COUNTED? 
IF NO, GO CONTINUE SIZING 
(IF YES, INDICATE THE NUMBER OF WORDS IN RO 
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SEQ 0135 



4U6 


027576 


000401 








BR 


6S 


4147 


027*00 


032S2* 






I«; 


5 up 


f ep\ X # en\ A_ 


















4148 
















4149 


027602 


000300 






6(1 


8NAB 


RO 


4150 
















4151 


027604 


006300 








ASL 


RO 


4152 


027S06 


006300 








ASL 


RO 


4153 


027610 


042700 


170037 






BIC 


tl70037,P0 


4154 


027614 


105767 


151472 






TSTB 


CHN 


4155 


027620 


100054 








BPL 


SETCOH 


4156 


027S22 


162700 


OOOIOO 






SUB 


tlOO.RO 


4157 


027626 


000451 








BR 


SETCOM 


4159 


027630 


004767 


162160 




SETKTl 


JSR 


PC.KTINIT 


4159 


027634 


012737 


077406 


172304 




MOV 


#77406, 9IKIPDR2 


4160 


027642 


012737 


000001 


177572 




MOV 


*l,()fSSRO 


4161 
















4162 


027650 


012737 


027722 


000004 




MOV 


«2S,»t4 


4163 


027656 


016701 


151342 






MOV 


LC0R12,B1 


4164 


027662 


062701 


000040 






ADO 


«40.R1 


4165 


027666 


042701 


000037 






BIC 


#37, Rl 


4166 


027672 


010137 


172344 






MOV 


Rl,(»tKIPAR2 


4167 


027676 


06273? 


000000 


040000 


IS! 


ADD 


«0,a#40000 


4168 


027704 


062737 


000040 


172344 




ADD 


«40,9»KIPAR2 


4169 


027712 


001371 








RNE 


IS 


4170 


027714 


012700 


007600 






MOV 


•7600, RO 


4171 


027720 


000403 








BB 


1$ 


4172 


027722 


022626 






2tl 


CMP 


CSP)+,(SP)+ 


4173 


027724 


016700 


142414 






MOV 


KIPAR2,P0 


4174 


027730 


105767 


151356 




3$t 


TSTB 


CHN 


4175 


027734 


100006 








BPL 


SETCOM 


4176 


027736 


005067 


151342 






CLP 


KTPRES 


4177 


027742 


010067 


151126 






MOV 


P0,HCR12A 


4178 


027746 


000005 








RESET 




4179 


027750 


000667 








BR 


KTTEST 


4180 


027752 


012767 


015246 


150024 


SETCQ>"J 


MOV 


tBUSEPR,4 


4181 


027760 


010067 


151242 






MOV 


P0,HC0P12 


4182 


027764 


004767 


000102 




SETCMl, 


JSR 


PCTSTMEM 


4183 
















4184 


027770 


004767 


000626 






JSR 


PC,»NYP(R 


4195 


027774 


016700 


151226 






MOV 


HC0P12.ro 


4186 


OJOOOO 


010067 


151224 






MOV 


RO.HCOPSV 


4187 


O30004 


166700 


151214 






sue 


i.ccPi2,Re 


4188 


030010 


022700 


000040 






CMP 


»40,P0 


4189 


010014 


101021 








BHI 


SETXT 


4190 


030016 


105267 


151271 






INCB 


FOTI 


4191 


030022 


105767 


151256 






TSTB 


KTPPES 


4192 


030026 


001413 








BEQ 


IS 


4191 


O10O30 


022700 


000400 






CMP 


#400, RO 


4194 


03O034 


mioio 








BHI 


IS 


4195 


030036 


016767 


151164 


151174 




MOV 


HC0P12,0FFMX 


4196 


030044 


166767 


151154 


151166 




SUB 


LC0P12,0rFMX 


4107 


030052 


105267 


151237 






INCB 


RFLOC 


4198 


010056 


004767 


174610 




IS) 


JSR 


PC.LOADWC 


4199 


01006? 


oflflOOS 








RESET 




4200 


010064 








SETXIl 






4201 


010064 


005067 


147710 






CLP 






»SK1P OVER THE MEXT IVSTPUCTION 

j ir THERE WAS nu I/OCATIOn AT LAST THI, 
I REMOVE THE TRAP FROM THE STACK 
J ISOLATE THE 12 HGH ORDER BITS, FIRST, 
SGFT THE HOST SIGNIFICANT BITS IK THE LOW gVTE 
I ALIGN THE BITS TO ACCOUNT FOR 
jEXTENDEO ADDRESS BITS C17 + 18) 
fELIHINATE THE UNWANTED BITS FROM RO 
lACTU CHAIN? 

J NO- DON'T ADD ROOM FOR HONITOR 
JYES- ALLOW ROOM FOP MONITOR 
jGO TEST THE MEMORY 
(TURN ON THE KTll 

J TURN ON KTll 

JSETUP TIMEOUT VECTOR 

J GET THE TOP OF THE PROGRAM 

» ROUND IT UP 

fMAKE SURE IT'S A IK BOUNDARY 

J LOAD THE KTll REGISTER 

jTI"E OUT IF TnlS LOCATION IS NXM 



tCHAIN MODE? 

jNO, JUST GO TEST MEMORY 

lYES SHUT OFF KT FOR FIRST CHAIN PASS 

:SAVE THE REAL MEMORY SIZE 

:TURN KT OFF 

jNOW GO SIZE WITHOUT IT 

S RESET BUS ERROR TRAP. 

jHI ADDR TO HC0R12, 

rTEST MEMOPY FOR BASIC FUNCTIONING 

fVIA ADDRESS UP/OOWN TEST 

iCHECK FOR PARITY MEM, AND TORN IT ON 

iDIFF BETWEEN LC0B12 AND KC0P12 

lINITIALIZE SAVE LOCATION FOR KTON/OFF COMMANDS 

5 MUST SE ?T LEAST 40 

lis IT7 

(FORGET IT IF NOT, 

(ALLOW ROTATION, 

jNO PELOCAT10«I IF NO KTll 

I IF 8K OR GREATER, »LLOW CODE RELOCATION 

(BRANCH IF NOT 

(CALCULATE THE HIGHEST LOC TO WHICH 

(THE PROGRAM CAM BE RELOCATED 

(ENABLE RELDC»TION 

(LOAD WORST CASE UNTBU8 NOISE PATTERN 

(TURN OFF KTli IF I^ USE 

(CLEAR toe 0. 
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4202 030070 000205 



(EXIT. 
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4J03 
4204 
4205 
4206 
4207 
4209 
4209 
4210 
431i 
4212 
4213 
4214 
4215 
4216 
4217 
4218 
4219 
4220 
4221 
4222 
4223 
4224 
4229 
4226 
4227 
4228 
4229 
4230 
4231 
4232 
4233 
4234 
4235 
4236 
4237 
4238 
4239 
4240 
4241 
4242 
4243 
4244 
4245 
4246 
4247 
4248 
4249 
4250 
4251 
4252 
4253 
4254 
4255 
4256 
4257 
4258 



iMEHOPY ADDRESS UP/DOWV TEST 



0?C37: 
030100 
030102 
030104 
030110 
O30114 
030122 
030126 
030130 
030132 
030134 
030140 
030144 
030150 
030152 
030156 
030160 
030162 
030164 
030170 
030172 
030174 
03O20O 
010204 
030206 
030210 
0302)2 
030216 
050-22 
03O226 
030532 
030?3fi 
030240 
030244 
030250 
030252 
010254 
030256 
010262 
030264 
030270 
030272 
030274 
030276 
030100 
030302 
030304 
0303O6 
030310 
0301)2 
0101)6 
030320 



,i2g?i7 
OOlOOl 
000207 
016702 
016701 
012767 
105767 
001002 
010100 
000404 
012700 
010267 
012703 
010120 
062701 
005303 
001373 
005202 
020267 
002754 
005302 
162701 
105767 
001002 
010100 
000404 
012700 
010267 

011067 
020167 
001120 
162700 
162701 
005303 
001365 
005302 
020267 
002346 
016702 
010201 
005302 
00630J 
006301 
006301 
006301 
0Ofi301 
005301 
006101 
l'^5767 
001102 
010100 



1 5 ! I H 
151104 
030476 
J51156 



O400O0 
142200 

000040 



000002 
151100 



040076 
142122 

000040 
150764 
150760 

000002 
000002 



15P742 
150736 



TSTMEf«| 


CMP 


HCOP12,LCOP12 




BNE 


5« 




BTS 


PC 


511 


MOV 


LCbP12,B2 




MOV 


L0C0BE,R1 




MOV 


«N0MEM,4 


ISl 


TSTB 


KTPPES 




BNE 


2$ 




MOV 


PI.PO 




BP 


38 


2S| 


MOV 


#40000, RO 




MOV 


P2,K1PAR2 


3»l 


MOV 


»32,.P3 


4«i 


MOV 


''1,(R0) + 




ADD 


»2,P1 




DEC 


B3 




BNE 


4g 




INC 


R2 




CMP 


R2,HCOP)2 




BLT 


It 




DEC 


R2 




SUB 


»2,P1 


TSTMlj 


TSTB 


KTPPES 




BNE 


18 




MOV 


Rl ,R0 




EP 


28 


ISl 


MOV 


#40076, PO 




MOV 


R2,KIPAP2 


2Si 


MOV 


i32.,R3 


3Si 


MOV 


HFOjMEMWAS 




CMP 


PI.MEMWAS 




BNE 


MERP 


4S| 


SUB 


»2,P0 




SUB 


»2,R1 




DEC 


P3 




BNE 


38 




DEC 


P2 




CMP 


R2,LC0P12 




BGE 


TSfl 




MOV 


HCOR12,P2 




MOV 


R2,P1 




DEC 


R2 




iSli 


Rl 




ASL 


Rl 




ASIi 


Rl 




ASL 


Rl 




ASL 


Rl 




DEC 


PI 




ASL 


Rl 


TSTM2I 


TSTB 


KTPPES 




BNE 


IS 




MOV 


P1,P0 



J ANY MEMORY TO TEST 7 

jYES, CONTINUE 

I NO, RETURN 

jLOAD 12 BIT LOCOBE ADDRESS 

{PI CONTAINS I.OCOBE PHYS ADDRESS 

jLDAD TIME-OUT VECTOR 

jUSE KTll? 

I YES- BRANCH 

(NO- SET VA EQUAL TO PA 

jSET VA TO PAGE 2 

»MAP PACE 2 TO PHYSICAL ADDRESS 

SCOUKT 1 BLOCK 

SLOAD LOCATION WITH ITS ADDRESS 



(AFTER 1 BLOCK, UP PAGE ADDRESS FIELD 

(AT TOP? 

(NO- CONTINUE 

(YES- TEST GOING DOl»N 

(USE KTll? 

(YES- BRANCH 

(NO- LOAD VIRTUAL ADDRESS POINTER WITH PHY5 ADDRESS 

(MAP VA TO TOP OF 1ST BLOCK IN PAGE 2 
(MAP PAGE 2 TO PA 
, COUNT 1 BLOCK 

(DOES LOCATION' CONTAIN ITS PA? 
(NO- BRANCH 



(AFTER CHECKING I BI.OCK, ADDRESS NEXT 

(DONE? 

(HO- CONTINUE CHECKING 

(YES- SET TO LOAD MEMORY 

(FROM TOP DOWN 



(MSF KTll? 

(YES- BRANCH 

(NO- LOAD VIHTIJSL POI«TFP WITH 

(PHYSICAL AOroicsS 



010322 000404 
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4259 


030124 


')127nf> 


04007S 


is: 


MOV 


«40076,RO 


4260 














4261 


030110 


010267 


1 42013 




MOV 


P2,KIPAP2 


4262 


010314 


012703 


000040 


2SI 


MOV 


»32.,P3 


4263 


010340 


1 n ^ 




3S! 


MOV 


R],8B0 


4264 


030142 


005110 






COM 


lapo 


4265 


010144 


162701 


000002 




SUB 


«2,P1 


4266 


030350 


167700 


ot>oon2 




SUB 


#2,P0 


4267 


030154 


005103 






DEC 


Rl 


4268 


030356 


0O!37'> 






PNF 


3S 


4269 


030360 


0''i5102 






DEC 


R2 


4270 


030162 


020267 


150636 




CMP 


R2,t-COP]2 


4271 


030366 


"02151 






BGE 


TST"'2 


4272 


O303''O 


005202 






INC 


R2 


4273 


030372 


062701 


000002 




ADD 


«2,P1 


4274 


010376 


010104 






MOV 


P1,P4 


4275 


010400 


105767 


I5o7no 


TSTM3: 


TSTB 


KTPPES 


4276 


030404 


001002 






BNE 


IS 


4277 


030406 


010400 






MOV 


R4,P0 


4278 


030410 


000404 






BR 


28 


4279 


030412 


012700 


040000 


ISI 


MOV 


#40000, PO 


4280 


030416 


010267 


141722 




MPV 


R2,KIPAP2 


4281 


030422 


012703 


000040 


2S: 


MOV 


»32.,R3 


4282 


030426 


011067 


150564 


3Sl 


MOV 


PRO.MEMKAS 


4283 


030432 


010401 






MOV 


R4,P1 


4234 


030434 


005101 






COM 


Rl 


4285 


030436 


020167 


150554 




CMP 


P1,MEMWAS 


4286 


030442 


00)016 






BNE 


MERP 


4287 


030444 


005720 




481 


TST 


(P0) + 


4288 


030446 


062704 


000002 




ADD 


»2,P4 


4289 


030452 


005303 






DEC 


P3 


4290 


030454 


001364 






BNE 


38 


4291 


030456 


005202 






INC 


R2 


4292 


030460 


020267 


150542 




CMP 


R2,HCaR12 


4293 


030464 


002745 






BLT 


TSTM3 


4294 


030466 


012767 


015246 147310 


MOV 


«BUSERR,4 


4295 


010474 


000207 






RTS 


PC 


4296 














4297 


030476 


022626 




NOMEM( 


CMP 


csp)+,tspi+ 


4298 


030500 


012767 


015246 147276 MEPPi 


MOV 


»BUSERR,4 


4299 


030506 


105267 


150623 




INCB 


MEMEPF 


4300 


030512 


010067 


150466 




MOV 


PO.MEMVA 


4301 


030516 


104413 


001204 




GETPASi 


pMEMvA 


4302 


030522 


010167 


150466 




MOV 


Pl.MEMSBE 


4303 


030526 


016746 


150454 




MOV 


MEMPA, -(5P) 


4304 


030532 


016746 


150452 




MOV 


MEMEA,-(SP) 


4305 


030536 


004567 


163410 




JSP 


R5,0ACnVX 


4306 


030542 


026365 






MERR2 




4307 


030544 


016746 


150444 




MOV 


MEMSBE,-tSP) 


4308 


030550 


004567 


163364 




JSR 


R5,0ACNV 


4309 


030554 


026400 






MERR3 




4310 


030556 


016746 


150434 




MOV 


MEMWAS,-CSP3 


4311 


030562 


004567 


163352 




JSR 


P5,DACNV 


4312 


030566 


026413 






MEPR4 




4313 


030570 


004567 


164026 




JSR 


R5,T0P12S 


4314 


010574 


001206 






MEMPA 





(LOAD VIRTUAL -"ITH TOP ADDRESS OF 

(1ST BLOCK TN P4GE ? 

(MAP PAGE 2 TO PHYSICAL 

(COUNT » BLOC" 

[LOAD LICATIO"" «ITH ITS RHYS AODPESS 

(Comple"E';t it 



(AFTEP LDADI*!'; « HL^CK, SET UP FOP "''EXT 

(DONE? 

(MO- BRAN'CH 

(YES- SETUP n CHFCK IT 



(USE KTll? 

(YES- BRANCH 

(SET VIPT'.'AL ADDRESS FOMAI. TO PHYS ADDRESS 

(SET VIPTUAL ADDRESS TO START OF PAGE 2 
(MAP PAGE 2 TO PHYSICAL ADDRESS 
(COUNT A BLOCK 



(DOES LOCATin?) COHTeiM COMPLEMENT OF ITS PHVS ADPHf;SS? 
(NO- BRANCH 



(CHANGE 12 BIT ADDRESS AFTER CHECKING A BLOCK 

(DONE? 

(NO- BRANCH 

(RESET THE TT'fE-OUT TRAP VECTOR 

(YES- RETURN 

(POP THE STACK POINTER TWICE 
[RESET THE TIME-OUT TRAP VECTOR 



(SAVE FAILING ADDRESS 



(SAVE EXPECTED CONTENTS 

(CONVERT PHYSICAL ADDRESS TO ASCII 



(CONVERT SHOULD BE TO ASCII 
(CONVERT WAS VALUE TO ASCII 
(GET NEW HIGH COPE VALUE 



QABM DEC/Xll STiHDARD VGNITOR 
DXQABM.Pll 21-aPR-77 12t4S 
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SEQ 0139 



4315 

4316 



030576 
030604 



016767 
042767 



150410 
000007 



150422 
150414 



MOV 
BIC 



MEM12iHC0R12 
»7,HC0R12 
44o«KCuRi2 
PC 
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4319 










(THIS 


POUTIKE 


CHECKS rOR PJRIT 


4320 
















4321 


030622 


105067 


150512 




ANYPAP 


J CLRB 


PPRES 


4322 


030626 


105067 


150507 






CLRB 


CNT1 


4323 


030632 


012767 


030654 


1*7150 




MOV 


iis,PEsrv 




030640 


076600 


000101 






HED.PDSERV 




030644 


152767 


000002 


150466 




BISP 


»PTT1, PPRES 




030652 


000401 








BR 


US 




















030654 


022626 






l«l 


CMP 


rsp)f,(SP)+ 




030656 


012767 


015276 


147124 


lltl 


MOV 


»RESINT,RESIV 




030664 


012701 


172100 






MOV 


#172100. Bl 




030670 


012767 


030714 


14710S 




MOV 


»3S.BtJSEV 




030676 


012702 


001430 






MOV 


#PAPTAe,P2 




11111702 


OOSPtl 






7S! 


CtR 


fffir 




030704 


105267 


150431 






INCB 


C«T1 




030710 


010122 








MOV 


R1.(P23+ 




030712 


000401 








BR 


4S 




















030714 


022626 






3S: 


CMP 


(SP)+,(SP)+ 


030716 


062701 


000002 




4SI 


ADD 


»2,R1 




030722 


022701 


172136 






CMP 


#172136, P) 




030726 


002365 








BGE 


28 




030730 


105767 


150405 






TSTB 


CMTl 




030734 


001403 








BEQ 


5S 




030736 


152767 


OOOOOl 


150374 




BISB 


#BITO, PPRES 




















030744 


012767 


015246 


147032 


5Si 


MOV 


*BUSERR,BUSEV 




030752 


012767 


015672 


147134 




MOV 


«PAPERR,PARVCT 




030760 


000207 








RTS 


PC 


4350 
















4351 




OOOOOl 








.END 





rCLEAR PARITY PRESEN'T FtAG 

•CLEAR t OF PEC.TSTERS COUNTER 

J SET UP FOP A RESERVED IKSTR, TRAP 

!lS THIS AN n/60 ? 

(YES, SET 11 /SO PARITY PRESENT FLAG 

>GET OUT 

IPOP STACK POINTER THICE 
(RESTORE RESERVED IVSTR, TRAP VECTOR 
;LOAD ADDRK5S OF 1ST REGISTER 
jLOSD TIME-OUT VECTOR 
;LOAD ADDRESS OF TABLE OF ADR'S 
•tr RITGTSTrP TS THEP": - CtESP IT 
rIT'S HERE, COUNT IT 
(PUT IT'S ADDRESS I'lTO THE TABLE 
(CONTINUE 

;Pnp THE STACK POINTER TWICE 

(STEP TO THE NEXT ADDRESS 

(ALL REGISTERS CHECKED T 

(NO, 00 THE NEXT ONF 

(YES, FIND ANY PARITY REGISTERS 7 

(NO, GET OUT 

(YES, SET PARITY PRESENT 

(RESET TIME-OUT VECTOR 
(RESET PARITY VECTOR 
IPETUPN 
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CR0S3 PGrCPENCG TABLE •• USER SYMBOLS 



SEQ OMl 



AAT 


028747 


1405 


35831 






















ACBLF ■ 


0SJ772 


955 


970 


973 


1360 


1374 


3718 


3548 


3561 


3587* 








ACSP ■ 


000052 


1671 
























AC9RAC 


026136 


921 


3951* 






















ACSPC 


026152 


915 


3953* 






















ADDPHI 


001044 


2671 


1726 


3171» 




















ADDPLO 


001042 


2661 


1725 


3116 


2170» 


















ADREPR 


013510 


2168 


2175* 


3193 


3195 


















ADIEBR 


926177 


946 


39581 






















ADTEX 


026311 


953 


39751 






















A0IE2 


026233 


853 


889 


3964* 




















ADTEJ 


026220 


851 


891 


3963* 




















ADTE4 


026265 


842 


897 


3970* 




















ADTE4A 


026275 


945 


3972* 






















AOTEE 


026250 


849 


903 


3967* 




















ADTE8 


026205 


831 


909 


3960* 




















A0TE7 


026317 


859 


3977* 






















AEND 


025721 


765 


931 


938 


1000 


1028 


1035 


1096 


1103 


3919* 








AENDl 


025733 


998 


3921* 






















AEND3 


025746 


996 


3923* 






















AERCT 


026436 


798 


3994* 






















ABRNM 


026433 


795 


804 


3993* 




















AEPNHB 


026335 


835 


885 


3981* 




















AERPOR 


026130 


949 


3950* 






















AERRS 


025657 


1964 


3910* 






















AERTOT 


026470 


801 


3999* 






















AliCIiP 


001364 


4021 


1716 






















ALLBK 


001354 G 


361 


3961 


579 


1044 


1054 
















AMD8TA 


025631 


1958 


3903* 






















AMODNM 


025573 


344 


1953 


1968 


3336 


3330 


3375 


3898* 


4088 










AHYPAR 


030623 


4184 


4321* 






















APASS 


025766 


1004 


3937* 






















APC 


025605 


1955 


3900* 






















APCLR 


001366 


4031 


1730 






















APSCNT 


025640 


1961 


3907* 






















APSEND 


026007 


1097 


1104 


3931* 




















APTSALi 


»••••• U 


1 
3829 


37 
3573 


38 
3580 


29 

4201 


306 


318 


435 


460 


462 


535 


560 


1773 1779 


ASB ■ 


000056 


1711 


1197 


1600« 


1633* 


















ASTAT • 


000054 


1691 
























ASTATC 


026167 


913 


3956* 






















ATE 


001342 


386* 


3a92» 


3395» 


3398* 


3307 


3320 


2330 


2341* 










AHA3 * 


000060 


172» 


1195 


1313 


1601» 


1631* 
















BDCNV 


014372 G 


321 

2919 


797 
3976 


BOO 
3981 


834 
3985 


858 


884 


1003 


1090 


1960 


1963 


2353* 


2878 ?e95 


BITO ■ 


000001 


311 

Ji40 


1433 
3163 


1714 
3203 


2054 
3413 


2065 
4345 


3330 


2341 


2668 


3071 


3046 


3097 


3104 3114 


BITl ■ 


000003 


130» 
3205 


1718 
4335 


1756 


1918 


2069 


2619 


3652 


2574 


29«7 


3027 


3048 


3106 3164 


BITIO ■ 


002000 


1211 


598 


608 


1595 


1792 
















BITll ■ 


004000 


120* 


598 


603 


1788 


















BITia ■ 


010000 


119* 


598 


618 


1046 


J086 


1798 


307) 


3142 


32^9 








BITIJ ■ 


020000 


118* 


694 


758 


803 


922 


1030 


1121 


1154 


nci 


1784 


3323 


3268 


BIT14 ■ 


040000 


117* 


697 


979 


1119 


1782 


1947 


)9S9 


1994 


3321 








BIT15 ■ 


100000 


116* 
























BITS ■ 


000004 


129* 
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CROSS perEPENCE TABLE -- USER SYHBOLvS 



BZT3 ■ 


000010 


BIT4 ■ 


000030 


BIT5 ■ 


000040 


8IT6 ■ 


000100 


BIT7 ■ 


000200 


BIT8 « 


000400 


BIT9 » 


OOlOOO 


BKCNT 


001025 


BKPTR 


001270 


BKOSVC 


003140 


BKQUG 


001012 


BKTIME 


001336 


BKTIMR 


001034 


BKTYM 


020042 


BPSCNT 


026016 


BRAKE 


001013 


BBEAKI* 


104407 


BREAK. 


0034'!1 


BUPSIZ« 


054037 


BU8ERR 


015246 


BUSEV 


000004 


CADDR 


001512 


CAST ■ 


•»•••* G 


CCSRA 


001160 


CDATA*" 


104414 


CDATA. 


007636 


CDATAl 


007662 


CDERR 


001516 


CDERRl 


001520 


CDPLG 


001156 


CDRET 


010464 


CHKHl 


001402 


CHKH2 


001372 


CMKLl 


001400 


CHItL3 


001370 


CHK8UM 


001374 C 


CHN 


001313 


CHHOUT 


016104 


CKCOHT 


007642 


CKHUNO 


020463 


CLKADR 


001430 


CLKHLD 


001423 


CLKOFF 


030334 


CLFOM 


030416 


CLOCK 


001353 G 


CLbCKL 


50U54 G 


CLOCKP 


O0U60 


CLROUS 


OHtfis 


clrve: 


. . ■ . ( -, 


CLR40 




CHTl 


5 , t' 


cbrr 


o,:'i?D 


cbrrr 


0?3H? 


COMCOH 


0l"-5»« 



128* 






















127* 






















136* 






















125* 


143 




















1241 


2298 


3099 


















123* 






















122t 


1152 


3538 


















252* 


1053 


1155» 


1797* 
















350* 


470» 


616* 


665 


1753» 


3116 


3286 


3467* 








570 


716* 




















241t 






















381* 


1165 




















361* 


1162* 


1165» 


















617 


3097* 




















1091 


3933* 




















242« 


577 


615» 


1041» 


1059 


1151« 


1438* 


7610* 


2639* 


3288* 


3516* 


684 


2549* 




















686 


784* 




















4088* 






















188 


499 


1887 


2025 


3029 


2579* 


3037 


4114 


41Bn 


4294 


4298 


188* 


463 


464* 


469* 


4106» 


4110* 


4114* 


4331* 


43*7* 






441 


443* 


756» 


777* 


790» 


813* 


873* 


1079* 


1683* 






35* 


310 




















307* 


488 


905* 


917» 


981* 


984 


987 


988* 








2559* 






















1529* 


3558 




















1535* 


1652 




















447* 


1606 




















448* 


1535» 


1536* 


1605 
















306* 


1531* 


1555 


1651» 
















449 


1647* 




















416* 


4101* 




















412* 


4101 




















415* 


4100» 




















411* 


4100 




















34* 


413* 




















363* 


535 


590 


1109 


1397 


1777 


1860 


2725 


2734 


2742* 


2755 


4174 






















1411 


3663 


3735* 


















1528 


1531* 




















1084 


3193 


3203* 


















423* 


3171* 


3184* 


3408 


3415* 














434* 


3173* 


3184 


3407 


3414* 














1066 


3600 


3637 


3667 


3160* 














1068 


3754 


3183* 


















33* 


3951 


934 


1031 


1083 


1092 


1403 


1714 


1718 


3018* 


3021* 


3046 


3048 


3104 


3106 


3160 


3163 


3164 


3182 


3203 


3205 


3275* 


321 


398* 


3019 


3033 


3059 


3110 


3167 


3209 








3i» 


399* 


3035 


3038 


3063 


3113 


3169 


3207 








■ -1 


539 


1431 


1427 


1755 


2483* 


3431 












1754 


3300* 




















)$51« 




















' " I 


1933 


3078 


3686 


4322* 


4334* 


4343 










, ■ ? = 


3859 




















."!: 


3669* 




















1(561 


1691* 


1743 


1746 


1843 


1943 


1990 


3038 


2135 


2737 





4133* 4154 



3027* 3036* 
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SEQ 0143 



COMCOl 


010S42 


1673 


16901 


















eoHCaJ 


OidbVB 


i652# 


3SS2 


















C0MC03 


010656 


1395 


li95t 


2001 


2010 


2031 


2036 


2044 


2048 


2082 


2094 


C0MC04 


010662 


1606* 


1702 


















eOMOUE 


001502 


44li 


781 


989 


115? 


!686 












COMTAB 


025106 


1666 


38101 


















CON 


013130 


20860 


3856 


















CONN 


023643 


2093 


36661 


















CbMTPL 


001476 


431* 


1766 


1768* 


1920* 


2071* 


2092* 


2100* 








CONVRT 


014176 


2293 


23021 


















CPUEPR 


001470 


428* 




















CR 


022742 


1098 


1407 


35811 
















CRCR 


022744 


764 
35e2» 


928 


937 


1025 


1034 


1095 


1102 


3278 


3279 


3281 


C8RA ■ 


000050 


166« 


987» 


1230 
















C8TART 


00)514 


444« 

1683* 


755* 
3119 


757 
3192* 


778* 
3217 


793* 


815* 


869* 


874 


986 


ioeo< 


CIPLC 


022770 


1440 


3588* 


















CTRLCA 


007044 


1318 


13871 


2651 
















CTRLCB 


007050 


1073 


1389* 


3259 
















CTRLCO 


007200 


1398 


1411* 


















CTRLJi 


007204 


1388 


1413* 


26C1 


2637 














CXRET 


001262 


347# 




















*»->;»«= 


■0441"' 




OATCK. 


007626 


15271 


2564 


















DATER$« 


104405 


2545« 




















OATrLG 


001347 


3911 


1527* 


1529* 


1639 














DOPPTR 


000042 


205t 




















DECODE 


010512 


1375 


16564 


















OECVAL 


026513 


2354 


4003* 


















DEPRCT 


001130 


295 » 


1532» 


1568* 


1592* 


1593 


1603 


1623 


1631 


1641 




DERPXt* 


104421 


447 


2569f 


















OERPX. 


003562 


743 


9104 


















DEPPXl 


003630 


8201 


822 


















DBS 


012500 


1979» 


3825 


















DIPA 


012334 


1408 


1941 


19441 
















OIRTND 


ooioii 


240( 


1939* 


1949 


1965 














DOT 


022737 


534 


1695 


1835 


2623 


35801 












DRPHNG 


020754 


3240 


3268* 


















DSTAOB 


001054 


27)» 


625« 


627* 


689* 


692 


712 


716* 


795* 


1625* 


16384 


EMTV 


000030 


199« 




















ENDCOM 


00*670 


762 


5i3 


373 


950! 


iOiS 


iCSS 










ENDPSl* 


104402 


25391 




















ENDSVt 


005022 


982 


10201 


















ENOSVB 


005214 


1057 


106li 


1806 
















ENOSVC 


005014 


742 


lOlSt 


















ENDSVO 


005304 


1053 


1058 


1060 


1072 


10741 


1153 










EKOSVE 


005104 


1039« 


1130 


1133 


1148 


1156 












ENDSVF 


005272 


1051 


10714 


















ENDSVG 


005160 


1045 


10524 


3195 
















END* ■ 


104403 


2541« 




















EPCVT « 


000030 


159t 


823 


876* 


878* 


883 


977 


1627* 


1630* 


1780* 


1962 


ERPINO 


001017 


246t 


810* 


864* 


866* 


868* 


870 


886 


942 


951 


957 


ERRLI« 


001254 


343» 


577 


















ERRNMB 


026327 


933 


940 


397911 
















EPRNS ■ 


104410 


25511 





















2102 3307 



3294 3295 



3298 



1080* 1416* 1420* 1422* 
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CROSS REFERENCE TABLE — USER SYMBOLS 



ERRORS* 


104404 


2543* 














ERRPOS 


001154 


305* 


833* 


834* 


837 


845 


854 




ERPSVC 


004042 


742 


8684 












ERRTIM 


020053 


9?6 


1023 


30994 


3291 








ERSVCA 


004050 


865 


867 


869* 










ERSVCB 


004116 


877 


8794 












EBSVCC 


004122 


8904 


892 












ERSVCl 


004034 


742 


8664 












EPSVC2 


004024 


743 


8644 












EBSVND 


004576 


806 


923 


958 


9754 








ERSVX 


004332 


860 


910 


9224 










EXITS « 


104400 


2535« 














EXIT. 


005736 


11734 


1241 


2534 










TtTTT. 


fl'^IBTT?' 


TTTfl- 


trN^f 


17*« 


1Jf»9 








EXIT?. 


np5774 


11fi5t 


l?Ot 


1223 


1251 


1305 






FAKESR 


001004 


2344 


467 


506 










FATAL 


024100 


3567 


36954 












riLCNT 


001306 G 


351 


3594 


1512 


2132 








riLCTR 


001020 


247» 


1512* 


1514* 


1519* 








PILL 


013?14 


21094 


3831 












FILLER 


001307 G 


351 


3601 


1515 










FILLID 


001324 


370t 


1694* 


2109* 


2133 








FILLNM 


013634 


794 


999 


1951 


2211i 


3289 






GETADR 


013450 


1723 


2114 


21634 










GETNAM 


013662 


198S 


2111 


22221 










GETNUM 


013516 


2153 


2163 


21814 










GETPAS» 


104413 


993 


999 


990 


75574 


3557 


4301 




CETPA. 


021272 


2556 


3343* 












GTOK 


010554 


16661 














GTOKX 


010560 


16674 














GTOK I 


010562 


16681 


1676 


1678 










GT0F2 


050604 


1669 


16771 












GHBUF8« 


104412 


25554 














GWBUF. 


021150 


2554 


33124 












HAROSR« 


177570 


764 


463 












HCORSV 


001230 


3324 


2018 


4186* 










HCbR12 


001226 G 


32* 


3304 


1854 


1859 


2006 


2008* 


2018* 2738* 2793 2858 2871 






4131* 


4181* 


4195 


4195 


4305 


4223 


4244 4292 43lS* 4316* 4317 


HCR12A 


001274 


352* 


2738 


2739 


4177* 








HLT 


023746 


1262 


1294 


2528 


2583 


3568 


36784 




HMS 


017310 G 


331 


29474 


3076 


3146 








HNGFLG 


001344 


3884 














HHGTIM 


001362 G 


344 


4014 


3237 










HOLDS 


0J5667 


2879 
2983 


2880 
2986 


2886 
2997 


2896 
39131 


2898 


2908 


2920 2922 2931 2977 2978 


H0LD6 


025675 


965 


966 


2142 


2143 


2157 


2158 


2713 2714 39154 


HOLDS 


025706 


2150 


2151 


39174 










HOP 


014(66 


2296 


23004 












HOURS 


001405 G 


331 


4184 


2978* 


2979* 


3079 


3080 


3081 


HUNGCK 


020434 G 


341 


31904 












IE ■ 


000100 


t43« 


543 


1347 


1400 








IMIT ■ 


000022 


1554 


625 












INPUT 


002162 


536 


5404 


1696 


1837 








INVADR 


023344 


2175 


36324 












IKVCDl 


023131 


1662 


36064 












INVCD2 


023203 


1741 


36144 
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1745 
1841 
1S90 
2264 
2527 

273i 

2609* 

148 

1451 

148» 

694* 

710# 

557 

7041 

ft32 

442 

237« 

279« 

2flO» 

194* 

5119 

2138* 

2146* 

2144 

2887 

1379 

264* 
1665 
213 
542 
144* 

too* 

101* 
J02» 
3779* 
103* 
104* 
95* 
96* 
971 
98* 
99* 
511 
432* 
2009 
1874 
2582 
479 
1999* 
2014* 
516 
36* 
2678 
4191 

351* 
1901* 



INVCD3 


023241 


INVC04 


023316 


INVCMD 


023107 


INVNAM 


023370 


INVTRP 


023040 


lOBKID 


001060 


100 


027252 


lOOL ■ 


000620 


lOOLIM. 


030072 


IQOSVA 


003040 


lOOSVB 


003122 


lOQSVC 


002742 


lOOSVO 


003106 


lOOSVE 


003032 


:oosvM 


003016 


ibouE 


001006 


lOQl 


001074 


I0Q2 


00107S 


lOTV 


000020 


ITOA 


013426 


ITOAX 


013336 


ITOA? 


013372 


ITOUT 


013444 


KAY 


024503 


KBOFLO 


023505 


KBPTR 


001036 


KBSBVC 


006552 


KBUF 


026712 


KBun » 


000040 


KIPARO* 


172340 


KIPABl* 


172342 


KIPAR2* 


172344 


KIPAR3» 


172346 


KIPAR7* 


172356 


KIPORO* 


172300 


KIPORla 


172302 


KIPDR2* 


172304 


KIPDP3« 


172306 


KIPDR7B 


172316 


KLOCK 


017550 


KONTRt 


001500 


KTDIS 


024007 


KTERR 


015254 


KTFATL 


024050 


KTINTT 


012014 


KTOFF 


012562 


KTON 


012632 


KTONM 


024615 


KTPPES 


001304 


KTSAV 


001272 


KTSETO 


012150 
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36201 

36281 

36021 

36361 

35951 

558 

2S3B« 

678 

148 

676 

722 



SEQ 0145 



676* 
1645 
691 
689* 
555 
1290 
676 

2121 

2866 

2152 

3742* 

3649* 

537* 
1684« 
1314* 
1324 
1324 
1581 

487» 
3438* 
4166* 
3439» 
1912* 
1903 
3524 

480* 
3424* 
1913» 
3018* 
1766» 
3685* 
2581* 
3691* 

514 
3834 
3837 
2023 

356* 
2642 
4211 
2736 
3412 



583# 

3515* 

1292 

2493 

1296 



679* 
1292* 
678* 

2155* 
3547 



542* 
2181 

1354 

4010 
3358 

3442* 
4168* 
3447* 



3757* 

477 
2728 
4227 
2743 



592* 
3553* 

1298 
4017 



1166 

1296 

680 

2612 
3560 



1324 
2206* 

1361 

3533* 

3443 
4173 
1449* 



3423* 4159* 



512 
2743* 
4254 
4113* 



1343* 
2222 



1874* 2019 



531 

2744 
4275 



1344* 
2270* 



3445* 3446* 
4216* 4232* 
3454* 3455* 



2091* 2092 



1428 
3347 



1354 
2282* 



3447 

4261* 

3456* 



637 



639* 



660* 1811* 



1288 1300* 2483 2484 
1298* 1299* 1301* 2489* 
681* 1290 2490* 



1356* 1357 



3448* 
4280* 
3462 



1361* 1366 



1372* 1373* 



3493* 3498* 



1575 
3404 



1610 
3776 



1743 
4109* 



1919 
41J2* 



2002* 
4113 



2017* 
4134 



2605 
41715* 
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4132 
33* 
33* 

213* 
34* 
32* 
4242 
1274* 
1275 
1191 
430* 
533 
373* 
327* 
2709 
207 
2662 

317* 
3303* 
316* 
1391 
1392 
1939* 
81* 
342* 
2561* 
2560 

426* 

1940* 

378* 

249* 

248* 

82* 

2850 

323* 

380* 

429* 

322* 

325* 

321* 

326* 

324* 

4236 

3849 

3986* 

3988* 

3990* 

3871 

419* 

3149* 

2110* 

298* 

36* 

36* 

1039 

2651 



KTTEST 


027530 


KWllL » 


••••** G 


KWlIP . 


•»••«« G 


KYBDV 


000060 


LCLEAR= 


»«•»»« G 


LCbB12 


001224 G 


LDBBK. 


006366 


LDIOO 


006402 


LOTYPQ 


006256 


LGHOLD 


001474 


LOADWC 


024672 


LOCK 


001327 


LOCORE 


001920 


LOGBUF 


031422 


LOGIC 


016134 


LOGICA 


016144 


LPB 


001174 


LPON 


021110 


LPS 


001172 


LPWKl 


021144 


LPWK2 


021146 


MAP 


012314 


MAPREGb 


170200 


MAPRET 


001252 


MAP22S* 


104415 


MAP22. 


021426 


HAXTIM 


001426 


HDIBE 


025627 


H0L45 


001333 


MDXCNT 


001022 


MDXCTB 


001021 


MED « 


076600 


MEMCHG 


023724 


MEMEA 


001210 


MEMEBF 


001335 


MGHEBR 


001472 


HEMPA 


001206 


MGHSBE 


001214 


HGKVA 


001204 


MEMWAS 


001216 


MEM12 


001212 


MEBR 


030500 


MEBRl 


026344 


MCRR2 


026365 


MERP3 


026400 


MGRR4 


036413 


NFLAG 


001343 


MINUS 


001410 


MMINS 


038131 


MOD 


Q13323 


MODADB 


001136 


MODCNT 


001015 G 


MODCTB 


001016 e 


MOBEND 


02577S 


MODPTR 


001040 
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4134* 4179 
398 
399 



402 
329* 
4270 
2548 
1283* 
1194 
1758* 
3513 
1143 
471 
2999 
2732* 
2734* 
3304 
3853 
3303 
3308* 
3309* 
3828 



1418* 3521 



3384* 
3214* 

1967* 
1891 
620* 
503* 
1762 
3675* 
3544 
2847 

3543 

4303* 

3555* 

4234* 

4315 

4386 

3983* 

4306 

4309 

4312 

3983* 

3150* 

3819 

700* 

344* 

345* 

1036 

594* 



1852 1442 3501 3770 4128* 4130* 4163 4187 4196 47n5 4209 



1196 1198 1205 1208 1210 1217 1227 1236 1244 1219 12S3» 

1763 2654* 2658 

3769* 4198 

1707* 1710* 2765 2902 

1849 2855 3774 4118* 41?1» 4124 4175 4177* 4129* 42'1P 

4085* 



3232 

3905* 

4105* 

645* 

640* 

1764 

3546 

2851* 

3545 
4307 
3557 
4235 

42981 



3082 
3948* 

1175 
1049* 

588 
3939* 

595 



3235* 

4108* 
659 
659* 

2088 

3559 
4299* 



4300* 
4282* 



1193 
1052 
631* 



1048* 

2777 

2657 



4301 
4385 



3149 



1306 
1056 
1808* 



1137 
3783 
3659 



4314 
4310 



27R7 

2797* 

3003 



3271* 

3323 

4324 



1230 
1071 



1637 
1794* 



1825 1829 3257 1272* 
3117 2224* 22P1* 



MOOO 


036522 S 


MQDREA 


001124 


MOOPPA 


001122 


H0DP12 


001J26 


HODWEA 


001116 


bODWPA 


001114 


M0DW12 


001120 


MOPE 


010576 


NOVBN'K 


001250 


HOVri.G 


001345 


MOVING 


00132S 


MSCONT 


003326 


H5ECS 


026124 


MSGDS ■ 


104422 


MSGD. 


003466 


MSGDl. 


0035S6 


HSGrLG 


001346 


MSGN$ « 


104411 


HSGN. 


003322 


M5GS$ e 


104416 


H8GS. 


003312 


MSGS s 


104406 
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32t 

4008t 
293* 
2921 
2941 
290* 
2991 
2911 

16741 
341* 
389« 
37H 
751 

3151» 

1635 
743 



25531 

743 

2563# 

743 

505 

1379 

1968 

2158 

2676 

3540 

743 

759 

528 

3420* 

3422* 

3441 

3497 

3741 
3479 
3434 
3512 
3460i 
344« 
2835» 

28 
1627 
3034 
52(1 
4210 
2059 
508 
394t 
270« 
2681 
269* 
2930 
2907 
32« 
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SEQ 0147 



H5G. 


003426 


MSGl. 


003444 


MVCODE 


021474 


MVCOOS 


021564 


MVCODl 


021574 


MVC002 


022040 


MVC003 


022312 


HVDOWN 


001330 


MVERR 


022564 


MVHAP 


022412 


MVHSG 


022366 


MVRTRY 


022060 


MXWBF 


001J56 


NEW = 


• »•••« II 


MOCLK 


024317 


NOKT 


033776 


SOMEN 


030476 


NOPAP 


n24o21 


NOSWR 


024633 


NSTOP 


1^01352 


NUMBEA 


001052 


NUMBER 


001046 


NUMBPA 


001050 


NUMPWS 


025551 


NUMSYS 


"25531. 


OACNV 


014140 G 



470 

1!5C« 

i569» 

1S83 

1553» 

I57a» 

1582 

3453 

34l9» 
2603 

7541 
3152* 

2571t 
790t 
806* 
750» 

752» 

7501 

508 
1401 
2009 
2175 
2704 
3556 

776# 

771 
1067 

3519 
3451 

3504» 

3440* 

3487 

3518 

35l5i 

3566 

1859* 

2836* 

37 
1780 
3721« 
2027 
42971 
2067 
3760t 

651* 

895 

735* 

894 
3894* 
199t« 

850 



15$2« 
1574 



156S# 
1572 



3454 
3433* 

3425 



516 
1405 
2023 
2264 
2849 
3567 

78Q# 
1390 



3450* 
35S3i 
3521» 



1862* 
2837* 



36S7« 

1145 
901 
817* 
900 



1598* 
1597* 



520 
1406 
?027 
2527 
2850 
3568 



3496 

3511 



1863* 
2838* 

321 
2537 



1812* 
992 
892* 
991 



1600 
1601 



3458* 

3532 

3430* 3459* 



3504* 3510* 



1407 
2043 
2528 
2854 



1839 
3503 



1864* 1865* 

2840* 3320 

343 823 

2541 2549 



534 126J 

1440 1662 

2057 2059 

2547* 2582 

2885 2886 



1866* 
3322 



2583 
2887 



2611 

2907 



1 i->t 
1741 



2621 

2908 



VI 1 
3956 



1346 
1745 



2623 

2930 



957 
3979 



2769 2804 
893 898* 899 990 993 



890 912 914 964 995 1954 1957 



1835 



2640 
2931 



2833* 
977 



1 374 
1841 



2650 
3034 



2S34* 
1 160 
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SEO 0148 







2702 


2712 


4308 


4311 




















OACNVX 


014152 


830 


841 


848 


996 


902 


908 


920 


997 


2141 


2295* 


2699 


4315 




0ACNV8 


014160 


2149 


22981 
























□ASCEA 


001112 


286« 


2291* 


2300* 


2322 


2332 


2337 
















OFFMX 


001240 


336* 


1063 


1739 


2739* 


4105* 


4196* 
















OFFSET 


001242 G 


34* 


337* 


601 


605 


1061 


1786 


1790 


1804 


1846 


1853 


2752 


2790 


2796 






2818 


2832 


3429* 


3431 


3436 


3438 


3448 


3455 


3491 


3505* 


3506 


3507 


3509 






3522 


3533 


3542 


3771 




















OFFSTD 


001244 


33e« 

3431 


527* 
3435 


1061* 


1062* 


1063 


1065* 


1389* 


1711* 


1747* 


1838* 


2752* 


3409 


3416' 


0FF5IM 


001246 


339* 


3429 


3435* 


3436 


3439 


3449 


3456 


3491 


3495 


3500 


3505 






OPEN X 


000000 


115» 


204 


208 


209 


234 


237 


338 


239 


240 


241 


242 


243 


244 






245 


246 


247 


248 


249 


25 


251 


252 


253 


254 


255 


2515 


258 






260 


261 


262 


264 


265 


266 


267 


268 


269 


270 


271 


272 


273 






?74 


J76 


2T# 


?77 


278 


279 


780 


291 


282 


3S3 


5R« 


J«S 


2?S 






289 


290 


291 


29? 


293 


294 


295 


296 


207 


298 


299 


3CD 


3;< 






302 


303 


304 


305 


306 


307 


321 


322 


323 


324 


325 


326 


327 






329 


330 


332 


334 


335 


336 


337 


338 


339 


341 


342 


346 


347 






348 


349 


350 


356 


361 


362 


363 


364 


365 


366 


367 


370 


371 






372 


373 


374 


375 


378 


379 


380 


384 


3«5 


3B6 


387 


388 


389 






390 


391 


393 


394 


395 


396 


419 


420 


*2! 


422 


423 


424 


425 






426 


428 


429 


430 


443 


444 


448 


4020 


4021 


4022 


4023 


4074 


4025 






4026 


4027 


4028 


4029 


4030 


4031 


4032 


4033 


4034 


4035 


4036 


4037 


4038 






4039 


4040 


4041 


4042 


4043 


4044 


4045 


4046 


4047 


4048 


4049 


4050 


4051 






4052 


4053 


4054 


4055 


4056 


4057 


4058 


4059 


4060 


4061 


4062 


4063 


4064 






4065 


4066 


4067 


4068 


4069 


4070 


4071 


4072 


4073 


4074 


4075 


4076 


4077 






4078 


4079 


4080 


4081 


4082 


4083 
















PAGNBL 


012232 


1434 


1918* 


2056 






















PAMSG 


015776 


1928 


2692 


26971 






















PAMSGl 


016032 


2622 


2677 


2708* 






















PAOFF 


024034 


2081 


3689* 
























PAPERR 


015672 


222 


2510 


2666* 


4348 




















PARTAB 


001430 


4274 


1922 


2073 


2680 


4332 


















PARVCT 


000114 


222* 


2510* 


2511* 


4348* 




















PASENO 


005310 


741 


1078* 
























PASREL 


001033 r. 


36* 


260* 


1139 


1825* 


1826* 


1827* 


1828* 


1831* 












PASTOT 


001032 


258* 


1134* 


1139 






















PASTTM 


020062 


1085 


3101* 
























PCLEAR" 


•«•»»• S 


34* 


403 
























PCONT 


025357 


2703 


3871* 
























PDP70 * 


• ••*** ii 


1 


27 


28 


29 


288 


369 


427 


501 


518 


522 


528 


829 


893 






990 


997 


1066 


1390 


1432 


1571 


1582 


1727 


1751 


1756 


1839 


1845 


1912 






1916 


2004 


2022 


2052 


2086 


2104 


2465 


2594 


2599 


2607 


2618 


2619 


2649 






2652 


2664 


2751 


2753 


2779 


2790 


2796 


2798 


2818 


2832 


2871 


2994 


3351 






3381 


3409 


3414 


3541 


3557 


3560 


3573 


3580 


3640 


3666 


3672 


3770 


3795 






3860 


3921 


3951 


3960 


3967 


3986 


4110 


4162 


4184 


4200 


4301 


4305 


4319 


PDREND 


001302 


355* 


1885 
























PDRTAB 


001276 


353* 


1876 
























PENABL 


023756 


2057 


3680* 
























PERRl 


025330 


2704 


3866* 
























PEBP2 


025427 


2676 


38791 
























PIROPC. 


177772 


90* 


4107 
























PIPO$ > 


000004 


114* 


454 


1320 






















PIRQ. 


006416 


194 


1287* 
























porr 


013044 


2065* 


3843 
























POK 


013004 


2047* 


3840 
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PONN 


011014 


POPSP ■ 


OOS736 


P0P8P3" 


033S38 


PPRES 


001340 


PRC6 


0393S0 


PRTV4 ■ 


000300 


PRTY! ■ 


000340 


PRT«6 ■ 


000300 


PRTV7 « 


000340 


PS ■ 


177776 


PSCNI • 


000026 


PSENDA 


005443 


PSGNDB 


005674 


P8TIM 


036111 


PSM a 


177776 


PTIHE 


001434 


PUSH ■ 


005746 


PUSHJ ■ 


034646 


PWRCNT 


001366 C 


PWRDN 


015460 


PWRFAI 


023703 


pwprv 


000024 


PHRHUH 


017334 


PHRUA 


015593 


PWRUP 


0)5506 


eOVPFL 


033774 


0T8TA 


003373 


OTSTB 


002304 


OTSTC 


002316 


OUeCMT 


001332 


OUECTP 


001027 


OUEIST 


002214 


QUE* s 


104401 


OUE. 


006376 


RANDt ■ 


104420 


RAND. 


014514 


RANNUM 


001200 S 


RANHRK 


001202 


RBUFEAa 


000070 


RBUFPA" 


000066 


RBUrSZ" 


000072 


RBUFVAa 


000064 


RDCOA a 


000103 


ROFCINa 


000104 


RDPBA a 


000102 


RDSERVa 


000101 


RDHHMIa 


000023 


RELGRR 


024420 


RELMSG 


034446 


PELQC 


001315 G 


RE8IA 


015302 


RESINT 


015276 


PE81V 


ooooio 


RETRY 


001331 


RlbOP 


014534 



933 


3047 


3034* 














1401 
1411 
3841 


1199 


1311 


1239 


1245 


1290 


1319 


1349 


1399 


1433 


1796 


1918 


3094 


3069 


3069 


3619 


3693 


433S« 


4349» 
















3700 


3869* 
















136* 


316 


3306 














139t 


















134* 


















133i 


189 


191 


195 


198 


214 


333 


1383 


1413 


74» 


i8e9» 


1893* 


1899* 












157# 


638 


1001 


1081* 


1089 


1133 


1779# 


1999 




1087 


1100 


1108* 














1190 


1197* 
















930 


1027 


1106 


3946* 












79f 


1589# 


3026* 


2030* 


3191» 


3939* 


4115* 






439* 


3144» 


3147 














138* 


















1391 


















36* 


349* 


1713» 


2639# 


2918 










197 


461 


2627* 


3633 












3640 


3672* 
















197* 


461* 


2631* 


2633* 












1410 


3916* 
















3634 


2641* 


2678 


3693 












3631 


2633* 
















1361 


1393 


3989* 














963 


969* 
















561 


966 


968* 














999 


969 


971* 














376* 


944 


553 














354* 


944* 


S48« 


553» 












548* 


973 


578 


597 


593 


669 


696 


699 


1074 


1375 


2937* 
















1279* 


2936 
















2567* 


















3390* 


2966 
















35* 


319* 


2392 


2412» 












320* 


3391 


2411» 














176* 


















175* 


















177* 


















174* 


















85* 


















86* 


















94i 


















83* 


4324 
















87* 


1762 


2657 














3556 


3732* 
















3540 


3736* 
















36* 


366* 


1141 


3741* 


2900 


4117« 


4197* 






2580 


2991* 
















190 


2990* 


4103 


4329 












190* 


4094* 


4103* 


*333» 


4339* 










375* 


3497« 


3563* 


3564 












2394* 


2410 

















3668 



1875 



3674 



1888 



2997 



SEQ 0149 



4321» 



1188 



14SS 



OABM 0EC/X)1 STSVTlSt) ' 
DXOABH.Pll 2l.ST».77 



RMOOE 001311 



ROT 


001035 


ROTBUr 


016304 


ROTBl 


(116516 


R0TB3 


016554 


R0TB3 


016600 


R0TB4 


01K626 


ROTCHK 


016740 


ROTCNT 


001316 


ROTCT 


001031 


ROTDIS 


034555 


ROTENB 


024505 


ROTI 


001313 


ROTL 


001314 


ROTLOW 


016652 


POTLOl 


016606 


ROTIWI 


016666 


ROIN 


001337 


ROTHUM 


001330 


POTOFF 


012760 


ROTOR 


012744 


ROTS I Z 


001322 


ROTXT 


016650 


RSTAT 


001066 


R8TPT a 


000062 


RST04 


014752 


RIIME 


001414 


RTIHX 


001416 


RTTK8 « 


104423 


RTIK. 


014504 


RTIl 


003136 


RUN 


010710 


RUNC 


011402 


RUHD 


011620 


RUNDIA 


025369 


RUHL 


010700 


RUWPAS 


020066 


RUHRE5 


011134 


RUMRFL 


001326 


RUMSVC 


002324 


RUHTYM 


017656 


SAVHI 


001134 


SAVLO 


001132 


SAVLOG 


017506 


SAV04 


014740 


8BADR ■ 


000052 


SEKNDS 


001413 


SEli 


012462 


SETBUr 


027151 


SEICHl 


OJTFft* 


SETCD!* 


c:': -I 


8ETKT 


e3'0& 


SETsar 


6ll*4«. 


SETWBl 


'o:mi'' 


SETXT 


OlOT't 



12142 

362» 
2661 

262* 
2761* 
3797 
?794 
2901 
2819 
509 
367* 
256* 
2043 
2854 
364* 
365* 
1856 
2791 
2624 
382* 
368* 
2041* 
2034* 
369* 
2762 
276* 
173* 
1665 
421* 
423* 
1599 
3380* 
713* 
538 
1774 
1805 
3873* 
1707* 
3098 
1070 
373* 
577* 
1404 
397* 
396* 
3599 
1533 
168* 
420t 
19731 

473 
4iB2» 
4155 
4139 
1832 
1155 
4122 
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502» 
3067 
3332» 
3335 
3800* 
2809* 
2803 
2821* 
2035 
1439» 
18l5» 
3751* 
3743* 
1135 

504» 
3798 
3Bl7» 
2832* 
3334 
1439 
3850 
3846 
1062 
2768 

693* 

627 
1914 
3065* 
3066* 
1622 
2972 
4099» 
1710* 
1802* 
1838* 

3813 

3100 

1795* 

623 

3045* 

3860 

3859 

3708 

1648 

1539» 

3987» 

3832 

4094* 

4157 
4158* 

1845* 
1899* 
4189 



1396* 1418 



17S2» 1775 



3847* 
2043» 
1817* 



1813 

3034* 

3839* 



3774 
710 
1079 
3344 
3077 
3078 
2573* 



3103* 

2798 
1069* 

3132 

2863* 

2861* 

2997* 

1664 

3084 



2814 

2812 

42001 



2767* 
1918» 



2740* 
3041* 



2776 
717» 

2373 
3133 

3138 



2865 
3864 



3772* 
IB19* 



2761 
2763 



2778 
1642* 

2413 
3137 
3145» 



1823» 1824 



27<)9 



2852 

2775 



3475* 2989 



2813 



3356 



2835* 



1750* 2636* 



2302 
3151 



2390 



QABM DEC/Xn STANDARD MONITOR 
DXQABM.PH 31-APR«7T 13143 



SHORT ■ •»»••* U 



8INPUT 


Ot06S6 


SLDS 


012514 


8LD6A 


012S14 


SLDSB 


012530 


SLDSC 


012542 


SLDSD 


Q12546 


SLD8E 


012552 


SLDSL 


012536 


SHODE « 


040000 


SPBOT 


027212 


8PCFLG 


001010 


SPblNTs 


000034 


5PSAV 


001152 


SPSPEC 


027252 


SR 


001176 


SRETRN 


001056 


Sip 


027012 


S8R0 > 


177572 


8SR3 ■ 


172516 


START 


001534 


STARTS 


002042 


STARTS 


002062 


START4 


003066 


STAT ■ 


000020 


STATl ■ 


000021 


STBrA 


0274M 


STOP 


001034 


SUWARlf 


022753 


SVRO " 


000033 


8VR1 ■ 


000034 


8VR3 ■ 


000036 


8VR3 » 


000040 


SVB4 ■ 


000042 


SVR5 > 


000044 


8VR6 » 


000046 


SYSBAD 


034145 


SVaCNT 


001364 


srsERi 


001310 


SY8GRR 


073601 


SYSEPl 


023420 


srsiz 


017052 


SYSLtM 


001350 


SYSNU** 


017140 


SYSSIZ 


024465 


TABADR 


001064 



[2143 




CROSS Rl 


EFEBENCC 


TABLE •• 


■ USER S' 


YMBOLS 












SEQ 0151 


1 


27 


28 


29 


145 


231 


288 


316 


351 


395 


421 


474 


510 


532 


617 


934 


1021 


1061 


1077 


1085 


109? 


1101 


!!10 


UJl 


i?91 


!402 


14D9 


1428 


1550 


1562 


1569 


1597 


1610 


1707 


1714 


1723 


1756 


1845 


1856 


1873 


1997 


3045 


2084 


2439 


3500 


2510 


2581 


2599 


2603 


3619 


2627 


2642 


3664 


2734 


3791 


2795 


2817 


3836 


2857 


2869 


2994 


3191 


3196 


3303 


3339 


3395 


3573 


3580 


3602 


3666 


3680 


3811 


3851 


3666 


1935 


4008 


4010 


4019 


4104 


4157 


4158 


4184 


4319 


















1700* 


3132 
























1975 


1984* 
























198St 


























1721» 


1973» 


1979» 


1999* 




















1986 


199H 
























19921 


1995 
























1723» 


1974» 


1980* 


1994* 




















1987 


1990f 


1993 






















93i 


1893 
























460 


498 


540 


1397 


2598 


3618 


2634 


3534 


4Q14I 










339» 


1656 


1658* 


1692» 


1701» 


















1561 


632 
























304» 


701» 


1184 


1200 


1222 


3190 
















3593 


3608 


4016* 






















35« 


318» 


463« 


465 


467# 


506 


758 


802 


922 


975 


979 


1086 


1595 


3071 


3142 


3538 






















372« 


1659 


1700» 






















1894 


40l2» 
























781 


483* 


497» 


515* 


1431* 


2005» 


2015 


3030* 


2581* 


2630* 


2644* 


2646* 


2730* 


J746 


2749» 


3411» 


3413» 


4ilU 


4160» 
















79» 


























329 


331 


333 


344 


413 


459* 


2757 


4088 












5141 


























513 


5201 
























519 


5221 
























153t 


597 


603 


608 


618 


693 


694 


697 


1020* 


1039 


1046 


1119 


1131 


1149 


1152 


1154# 


1642 


1781* 


1782 


1784 


1788 


1792 


1795 


1798 


1947 


1956 


1999* 


1994* 


3319 


3221 


3333 


3225 


3227 


3368* 


3269 










154t 


























4116* 


























351» 


581 


586 


1042 


1050 


1131 


1147* 


2771* 


2773 


2806* 


3341 






1401 


3584* 
























159* 


1176 


1540 






















1601 


























1611 


























163# 


























163» 


























164* 


























165» 


622* 


702 


1321» 


1634* 


1644 
















2650 


3702» 
























3481 


1712» 


2602* 


2645 


2647* 


2648 


2894 














361i 


541* 
























2611 


36601 
























2621 


3640* 
























510 


2871* 
























392* 


2648 
























1409 


2892* 
























2885 


3739* 
























275» 


754» 


768 


872* 


939 
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TENPWR 


014472 


2355 


2376* 














TFLAG 


001351 


393* 


3069 


3097* 


3099* 


3101* 


3114 


3135 


3140 


THRS 


026077 


3079* 


3090* 


3091* 


3943* 










TIHX 


026025 


3290 


3296 


3935* 












TIMXl 


024230 


3280 


3711* 














TITLE 


022672 


505 


3573* 














TKB 


001164 G 


35* 


313* 


1315 


1326 










TKS 


001162 G 


35* 


312* 


543* 


1314* 


1347* 


1400* 


2484 


3420* 


TMIMS 


07*101 


3082* 


30S3» 


3944* 












T0P12S 


014622 


1571 


1573 


2421* 


4123 


4313 








TOTIH 


026066 


929 


1026 


1105 


1406 


3297 


3941* 






T019S 


014672 


1845 


2446* 


2957 


3541 










TPB 


001170 G 


35* 


3l5» 


1392* 


1522* 


3304* 








tP& 


ao.iU6 G 


15» 


3l4l 


1391* 


1465* 


1 496* 


330.3* 






TBAPX « 


000084 


25311 


2S3S* 


2537* 


2539* 


2541* 


2543* 


2545* 


2547* 






2559* 


2561* 


2563* 


2565* 


2567* 


2569* 


2571* 


2573* 


TRCI 


005700 


192 


1162* 














TRCIA 


005706 


1164* 


1167 


4098* 












TRCIB 


005724 


1168* 
















TRCIC 


005710 


1163 


1165* 














TKCPC 


00)070 


277* 


568 


716 


719* 


1168* 








TRCPSW 


001072 


278* 


717 


1169* 












TRCV 


000014 


192* 
















TRPINT 


015134 


201 


2518* 














TRPLIW 


015746 


7523 


2573* 














TRPTAB 


015176 


2522 


2532* 














IBPV 


000034 


201* 
















TPP2 » 


01 1000 


738 


2522 


2530* 












TSECS 


njstoe 


1084* 


3085* 


3945* 












TSTMEM 


03007? 


4182 


4205* 














TSTWl 


010300 


4227* 


4243 














TSTM2 


030312 


4254* 


4271 














TSTM3 


030400 


4275* 


4293 














ITPIV 


000064 


215* 
















TTSRVl 


007436 


455 


567 


1456 


1487* 


1520 


1521 






TTYBSY 


001014 


243* 


562 


729* 


790* 


993* 


1038* 


1108* 




TTYBYT 


001260 


346* 


1345* 


1346 












TTYLNK 


001530 


455* 


1456* 


1504* 


1510* 


1516* 


1520* 






TTYSPV 


001526 


215 


454* 


3305 












TYPADP 


001104 


283* 


1458* 


1487 


1500* 










TYPCTR 


001110 


285* 


565* 


1523* 












TYPDAT 


004752 


791 


796 


799 


813 


816 


820 


880 


1008* 


TYPE 


007366 


773 
3549 


779 
3562 


805 


950 


954 


956 


967 


971 


TYPES 


007476 


1488 


1500* 














TYPEC 


007512 


1503* 
















TYPED 


007562 


1516* 
















TYPEE 


007556 


1513 


1515* 


1519 












TYPEL 


007610 


1502 


1505 


1511 


1517 


1522* 








TYPEN 


007350 


763 


927 


936 


944 


1024 


1033 


1094 


1101 


TYPEO 


030072 


147 


738 


1011 


1260 


1266 


2491 


2492 


4018* 


lYPEl 


007352 


1446* 


1449 














TYPLIM- 


031233 


147* 


736 


1009 


1264 










TYPQL ■ 


001130 


146* 


147 


2493 


4018 










TYPOUE 


001007 


238* 


560 


732* 


1014* 


1256 


1268* 






lYPOX 


006172 


1230* 

















2549* 2551* 2553* 2555* 



1445* 3277 



1456* 2715 



3293 
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CROSS REFERENCE TABLE -. USER SYMBOtS 



SEO P1S3 



TYPO. 


006232 


1244* 


2538 


2540 


2552 


2562 


















TYPOl 


OOUOO 


2Si» 


1258 


1260» 


1264 


1266* 


1267* 


1269» 


2491* 












TYPOl . 


006244 


1249» 


2546 
























TYPOS 


OOllOJ 


282» 


726 


728» 


730 


731* 


1009 


1011» 


1012 


1013* 


1258 


2492* 






TYPQ2. 


006tS6 


1226» 


2542 


2544 


2550 




















IYP03. 


006056 


1204* 


2568 
























TYPQ4. 


006010 


11911 


2570 
























TYPREI 


001106 


2841 


1457* 


1497 






















TYPRl 


001140 


2991 


1459» 


1495 






















TYPR2 


001142 


300« 


1460 


1490 






















tYPR3 


001144 


301« 


























TYPR4 


001146 


302t 


























TYPR5 


00)150 


303t 


























TYPSVC 


003166 


564 


726# 
























TYPTAB 


003250 


738 


7411 
























UIPARO" 


177640 


IIOI 


1581* 
























UIPARla 


177642 


llli 


i5e2» 


1619* 






















UIPARa« 


177644 


112» 


1593» 


1615* 






















UIPAR7» 


177656 


113» 


1584» 
























UIPDROa 


177600 


106t 


1577* 
























UIPDRl" 


177602 


1071 


t578» 
























UIPDR2B 


177604 


108» 


1579» 
























UIPDR7» 


177616 


1091 


t5B0» 
























UMODE a 


140000 


92# 


1589 


1889 






















U8P 


027002 


1890 


401l» 
























WASADRa 


000054 


170» 


1602» 
























HBFEA 


001234 


334« 


1848 


1851* 


28ll» 


2823* 


2e3e» 


3318 














WBFLG 


001023 


250» 


1769* 


2789* 


3325 




















KBur 


001232 


3331 


1847 


1849* 


2779 


2809* 


2821* 


2829» 


3317 












WBUFEAa 


000076 


t79» 


1553 
























HBUFPAa 


000074 


179« 


1552 


3316 






















MBUFRQa 


000100 


1801 


























WBUFSZa 


000102 


1811 


























HBUF12 


001236 


335» 


1852* 


1853* 


1854 


1863 


2790 


2792* 


7793 


2807* 


2817» 


2818 


2a3)* 


2833 


WCASE 


025006 G 


33* 


3775 


3794» 






















wCAsee 


025106 G 


331 


414 


3790 


3806* 




















HTWHMIa 


000222 


88* 


1764 


2659 






















XCNT 


001026 


253« 


1800* 


1815 


1921 




















XFLAS a 


000005 


1521 


621* 


3325 


3327» 




















XFRFLG 


001030 


25S» 


3422* 


3452» 


3517 




















YES 


001062 


274» 


2125 


2165 


2184* 


2204* 


2223* 


2246 


2248 


2251* 


2254 


2261 


2269* 




ZERO 


001222 


3281 


























aCHBFC 


001334 


379» 


1824* 


2785* 


2788» 




















IPASS 


025756 


766 


932 


939 


3925) 




















a 


030762 


30« 


186* 


199 


203* 


212* 


219 


221* 


228* 


230* 


397* 


417* 


419* 


477* 






1286 


1561 


1564 


1629 


1671 


1709 


1796 


1799 


1850 


1869 


2585 


3405 


3587 






3813 


3816» 


3819* 


3822* 


3875* 


3828* 


3831 


3934* 


3837 


3840* 


3843 


3846* 


3850 






3853 


3856K 


3859 


39121 


4007* 


4010* 


4011* 


4013* 


4015* 


4017* 


4018* 


40R5* 


4097» 






4093* 


























. ABS. 


032022 000 
000000 001 



























ERRORS DETECTED! 



OABM DEC/Xll STA»in»PD MONITOR MuCYll 27(1006) 23.APR-77 OOlU PAGE 153 
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DEFAULT GLOBALS GENERATEDl 

DXOABMjDXOABM/SOL/CRFlSYMsDXOABM 
RUN-TIMeI 5 10 1 SECONDS 
RUN-TIME PJTTOI 44/18»?.4 
COPE USEPJ !1K (22 PAGES) 



a«BD DgC/Xll SHORT MONITOR 
D*6*BM.pii 21-APR-77 12»42 



MACYU 27(1006) 22-APR-77 12|53 PAGE 1 



SEQ 0155 



PPODUCT CODEj 
PRODUCT NAHEj 
DATEi 
HAINTAINEPi 



IDENTinCATIOK 
HAIKDEC-ll-DXQAE-D-LA 
DEC/Xll - SHORT MONITOR 
JANUARY 1977 
DIAGNOSTIC GROUP 



OAEO OFC/Xll SHORT MONITOR 
0X0AP«.P11 21-SPR-77 1?|42 

27 
28 
29 



MACYU 27C1006) 22-APR-77 12t53 PAGE 2 



000000 
000000 



.LIST 

.EWABL 

.TITLP 

.ASECT 

.«0 

.GLOBL 
.CLOBL 
.r.lOBl 
.GLOei. 
.GLOBL 



SEQ 
AMA 
QAED DEC/Xll SHORT MONITOR 



l,C0R12.HC0R12,ORCNV,BDCNV,M0DQ,CLnCKL,CLDCKP 
KKHL,KW11P|HMS, HOURS, WCASE.WCASPE, CLOCK 
OFFSET, HUNGCK,HVGTIM,LCLEAR,PCLEAR,CHKSUM 
TKS,TK8,TPS,TPB,riLCNT, FILLER, SR.BAVNUM, CAST 
MOPCNT,MODCTR,PASREL,RELOC,ALLBIC,KTPRES,PWRCNT 



j»»**#»IF RUNNIKG l«ITH AN 11/60 AND ANY SYSTE« TYPE ERROR OCCURS 
I (TRAP TO 4, ETC,) "LOGBUF" WILL CONTAIN 

I IKE CONTESTS OF SCRATCHPAD LOCAT:0>«S FROM 0-177. SCRATCK?a: 
j LOCATIOKS ino-107 ARE PRINTED OUT. 

iSWITCH REGISTER OPTIONSt 

|SR15sl HALT MODULE AFTER ERROR. 



(SR13=1 
«SRt2*l 
»SR10»1 
|SR9«1 



INHIBIT ERROR PRINT. 

ENABLE ENDPAS PRINTOUT. 

PRINT ALL DATA ERRORS IN BUFFER 

INHIBIT "RELOCATED TO " MESSAGE 



jMODULE STATUS BIT DEFINITIONS! 



BIT 15»1 

BIT 14*1 
BIT 13«1 
BIT 12b1 
BIT Hal 
BIT lOol 
BIT 09«) 
ALL O'S 



rOMOD 

MODULE SELECTED 

MODULE DROPPED 

EXTENDED MODULE 

DESELECT IF PROGRAM IS RELOCATED 

DESELECT IF NOT ON AN EVEN 32K OFFSET 

NBKMOD 

SBKWOD 



0*BD DBC/Xll 8H0BI MONTTOB 
OXOABM.PU 21-APR-77 12(4! 
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SFO "157 













000000 




000001 




000002 




000003 




000004 




ooooos 




000006 




OQ0006 




000007 








177776 




177776 




177570 








177572 




172516 








170200 



|S rEW DEFINITIONS. 



RO 
Bl 
R2 
R3 
P4 
R5 
R6 



PS 

PSM 

HARDSP 

SSRO 
5SR3 



■%0 
■%1 

B%2 

■%3 
■%4 
»%5 
■%6 
■16 
■%7 



tGENERAL PURPOSE RESISTER 

IGENGRAL PURPOSE REGISTER 1 

(GENERAL PURPOSE REGISTER 2 

» GENERAL PURPOSE REGISTER 3 

tGENERAL PURPOSE REGISTER 4 

(GENERAL PURPOSE REGISTER 5 

(GENERAL PURPOSE REGISTER 6 

(POINTER TO HARDWARE (SYSTEM DEFAULT) STACK 

(PROGRAX COUNTER 



■177776 (PROCESSOR STATUS REGISTER 
■177776 (PROCESSOR STATUS WORD 
■177570 (HARDWARE SWITCH PEGISTER 

■177572 (MEMORY MANAGEMENT REGISTER 
■172516 (MEMORY MANAGEMENT REGISTER 3 



MAPREG ■170200 (BASE ADDRESS OF UNIBUS MAP BOX (11/70) 
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076600 




OOOlOl 




000102 




000103 




000104 




000022 




000222 








177772 








140000 




040000 








172300 




172302 




172304 




172306 


100 


172316 


101 


172340 


102 


172342 


103 


172344 


104 


172346 


105 


172356 


106 




107 


177600 


108 


177602 


109 


177604 


110 


177616 


111 


177640 


112 


177642 


113 


177644 


114 


177656 



MED 

RDSERV 

RDPBA 

RDCUA 

BDFGIN 

PDWHMl 

WTWMMI 



UMODE 
SMODE 

KIPDRO 
KIPDRl 
KIP0B2 
KIPDB3 
KIPDB7 
KIPABO 
KIPARl 
KIPAB2 
KIPAB3 
KIPAB7 

UIPORO 
UIPDRl 
UIPDR2 
UIPDR7 
UTPABO 
UTPABl 
UIPAR2 
UTPAR7 



■76600 

■ 101 

■ 102 

■ 103 

■ 104 

■ 022 

■ 222 



PIROBG ^177772 



■140000 
■40000 

■172300 
■172302 
■172304 
■172306 
■172316 
■172340 
■172342 
■172344 
■172346 
■1723S6 

■177600 
■177602 
■177604 
■177616 
=177640 
■177642 
■177644 
■177656 



MAINTENANCE FXAMINE AND DEPOSIT INSTRUCTION (11/60) 

LOG SERVICE REG. ADB .. pr&D 

LOG PHYSICAL BUSS »DR, PEG. SDR, •- READ 

LOG CUPRENT MICRO «DR, REG. ADR, -- BEAD 

LOG FLAG/IMTEBPIIPT REG, ADU. -- BEAD 

GEN. hHO AM I PEG. ADR. -- READ 

GEN. WHO AM I BEG, ADR. -- WBITE 

PROGRAMMED INTERRUPT REQUEST REGISTER 

BIT CONFIGl'PATION TO INDICATE USER MODE IN PSW 

BIT CONFIGUPATTON TO If'DICATE SUPEPVISOP MODE in PS* 



KEBNEL 
KERNEL 
KEBNEL 
KERNEL 
KEBNEL 
KEBNEL 
KEPNEL 
KEBNEL 
KEBNEL 
KEBNEL 

USER 
USER 
USEB 
USEB 
USEB 
USEB 
USEB 
USER 



INSTRUCTION 
INSTRUCTION 
INSTRUCTION 
INSTRUCTION 
INSTRUCTION 
INSTBUCTinW 
INSTRUCTION! 
INSTRUCTION 
INSTBUCTION 
IN5TBUCTI0N 

INSTRUCTION 
INSTRUCTION 
INSTRUCTION 
INSTRUCTION 
INSTRUCTION 
INSTRUCTION 
INSTRUCTION 
INSTBUCTION 



P»GE 
PAGE 
PAGE 
PAGE 
PAGE 
PAGE 
PAGE 
PAGE 
PAGE 
PAGE 

PAGE 
PAGE 
PAGE 
PAGE 
PAGE 
PAGE 
PAGE 
PAGE 



DESCPIPTOP 

DESCRIPTOR 

DESCRIPTOR 

DESCRIPTOR 

DESCRIPTOR 

ADDRESS 

ADDRESS 

aDDPESS 

ADDRESS 

ADDRESS 

DESCRIPTOR 

DESCRIPTOR 

DESCRIPTOR 

DESCRIPTOR 

ADDRESS 

ADDRESS 

ADDRESS 

ADDRESS 



REGISTER 
REGISTER 1 
REGISTER 2 
REGISTER 3 
REGISTER 7 
REGISTER 
REGISTER 1 
REGISTER 2 
REGISTER 3 
REGISTER 7 

REGISTER 
REGISTER 1 
REGISTER 2 
REGISTER 7 
REGISTER 
REGISTER 1 
PEGISTER 2 
REGISTER 7 
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SEQ 01S9 



lis 


000004 


116 


OOOOOO 


117 


100000 


118 


040000 


119 


020000 


120 


010000 


121 


004000 


122 


002000 


123 


OOinOO 


124 


000400 


12S 


000200 


126 


000100 


127 


000040 


128 


000020 


129 


000010 


130 


PO00O4 


131 


000002 


132 


000001 


133 




134 


000340 


135 


000300 


136 


0002*0 


137 


000200 


138 




139 


005746 


140 


024646 


141 


005726 


142 


022626 


143 




144 


000100 


145 


000040 


146 


000310 


147 


000454 


148 


017572 


149 


017U6 



PIP08 

OPEW 

BIT15 

BIT14 

BIT13 

BIT12 

BITli 

BITIO 

BIT9 

BIT8 

BIT7 

BTT6 

BITS 

8IT4 

BIT3 

BIT2 

BITl 

RITO 

PHTY7 
PRTY6 
PPTYS 

PBTY4 

PUSH 
PUSH2 
POPSP 
P0P5P2 

IE 

KRUFL 

lOQL 

TYPQL 

TYPLIM 

lOQtlM 



■ IDT 
■0 

■100000 
•40000 
■20000 
■10000 

■ 4000 

■ 2000 

■ lOOO 

■ 400 

■ 200 

■ 100 

■ 40 
=20 

■ 10 

■ 4 

■ 2 

■ 1 

■ 340 

■ 300 

■ 240 

■ 200 

■005746 
■024646 
■005726 
■022626 



jHiKE THF: -r- ■ r.iL, 
"USE DPEK f. , "CLAr 
'pit 15 DEFINITION 
BIT 14 DEFINITION 
BIT 13 DEFINITION 
BIT 12 DEFINITION 
BIT 11 DEFINITIOW 
BIT 10 DEFINITION 
BIT 9 DEFINITION 
8 DEFINITION 
7 DEFINITION 
6 DEFINITION 
5 DEFINITION 
4 DEFINITION 
3 DEFINITION 
2 DEFINITION 
1 OEFINITIOK 
DEFINITION 



i TPfto THPOUGK THE lOT VECTOS 



SIT 

BIT 
BIT 
BIT 
BIT 
BIT 
BIT 
BIT 
BIT 



BIT CONFIGURATION FOR PRIORITY LEVEL 7 IN PSW 
BIT CONFIGURATION FOR PRIORITY LEVEL 6 IN PSM 
BIT CONFIGURATION FOR PRIORITY LEVEL 5 IS PS« 
BIT CONFIGURATION FOR PRIORITY LEVEL 4 IN PSW 

TST -CSP) jjUSED TO ADD A WORD TO THE STACK 

CMP -CSP),-(SP) tjUSED TO PUT TWO WORDS ON THE STACK 

TST (SP)+ nUSED TO DFLETE A WORD FROM THE STACK 

CHP (SP)+,(SP)+)USED TO DELETE TWO WORDS FROM THE STACK 



■BIT6 jDEFINITION OF INTERRUPT ENtBLE BIT FOR ALL PDP-ll DEVICES 
■32. JDEFINITION OF KEYBOARD BUFFER LENGTH (IN WORDS) 
■200. iDEFlNITION OF I/O SERVICE QUEUE LENGTH (IN BYTES) 
■300. JDEFINITION OF TYPING SERVICE QUE LENGTH (IN BYTES) 
■TYPEQ+TYPQL jDEFINITION OF LAST WORD IN TYPE QUEUE 
■lOO+IOOL jDEFINITION OF LAST WORD IN I/O QUEUE 
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150 




151 




152 




153 


000005 


154 


000020 


155 


000021 


156 


000022 


157 


000024 


158 


000026 


159 


O00030 


160 


000032 


161 


000034 


162 


000036 


163 


oaoo40 


164 


000042 


165 


000044 


166 


000046 


167 


000050 


169 


000052 


169 


000052 


170 


OO0054 


171 


000054 


172 


000056 


173 


000060 


174 


000062 


175 


000064 


176 


000066 


177 


000070 


178 


000072 


179 


000074 


1»0 


000076 


181 


000100 


182 


000102 


183 




184 





jTHE FOLLOWING DEFINITIONS »RE THE T^DEX VALUFS USED BY MODE 6 AND 7 
jMONITOp INSTRUCTIONS WHEN REFERRING TO LOCATIONS IN THE HEADER OF A MODULE 

J REFERENCE USED TO KEEP TRACK OF WRITE BUFFER USAGE 

J POINTS TO THE LOW BYTE OF THE MODULE STATUS WORD 

JPOINTS TO THE HIGH BYTE OF THE MODULE STATUS WORD 

jPOINTS TO THE MODULE 'S STARTING ADDRESS 

J POINTS TO THE MODULE'S STACK POINTER 

» REFERENCES THE LOCATION KEEPING TRACK OF THE NUMBER OF PASSES 

J REFERENCES THE LOCATIO"* KEEPING TRACK OF THE NUMBER OF ERRORS 

jPOINTS TO WHERE THE MODULE'S REGISTER CONTENTS ARE STORED 

JPOINTS TO WHERE THE MODULE'S REGISTER 1 CONTENTS ARE STORED 

jPOINTS TO WHERE THE MODULE'S REGISTER 2 CONTENTS ApE STORED 

fPOIKT* TO WHEWE TUB tMHHIliP'9 ffEfilSTER 3 CONTENTS M»E ST01»E0 

JPOINTS TO WHERE THE MODOtE'S REGISTER 4 CONTENTS ARE STORED 

JPOINTS TO WHERE THE "OCULE'S REGISTER 5 CONTENTS ARE STORED 

JPOINTS TO WHEPE THE MODULE'S REGISTER 6 CONTENTS ARE STORED 

J REFERENCES THE BASE AD^PESS OF THE MODULE'S OEVICESCCONTROL AND 

I REFERENCES THE CONTENTS OF THE CONTROL AND STATUS REGISTER 

I POINTS TO THA ADDRESS OF WHAT THE DATA SHOULD HAVE BEEN 

jPOIHTS TO ANYSTATUS REGISTERNOT THE SAME AS THE CSR 

jPOINTS TO THE ADDRESS OF WHAT THE DATAWAS 

JPOINTS TO THEACTUAL EXPECTED DATA 

jPOINTS TO THE ACTUAL RECEIVED DATA 

JPOINTS TO THE MODULE RESTART ADDRESS 

jREFERENCES THE VIRTUAL ADDRESS OF THE READ BUFFER 

J POINTS THE LOCATION FOR THE PHYSICAL ADDRESS OF THE READ BUFFER 

JPOINTS THE EXTENDED ADDRESS BITS OF THE READ BUFFER 

JPOINTS THE SIZE OF THE READ BUFFER 

J POINTS TO THE WRITE BUFFER PHYSICAL ADDRESS 

JPOINTS TO THE EXTENDED ADDRESS BITS OF THE WRITE BUFFER 

jREFERENCES THE AMOUNT OF WRITE BUFFER REQUESTED BY MODULE 

jREFERENCES THE SIZE OF THE WRITE BUFFER 



XFLAG 


= 5. J 


STAT 


■16. J 


STATl 


■17. J 


INIT 


■18. J 


SPOINT 


■20. J 


PSCNT 


■27. J 


ERCNT 


■24. J 


SVRO 


■26. J 


SVRl 


■28. J 


SVP2 


= 30. J 


SVR3 


■32. J 


SVR4 


■34. J 


SVR5 


■36. J 


SVR6 


= 38. J 


CSRA 


= 40. J 


ACSR 


■■42. J 


SBADB 


■42. J 


AST»T 


■44. J 


WASADR 


= 44. J 


ASB 


= 46. J 


AWAS 


= 48. J 


RSTRT 


■50. J 


RBUFVA 


■52. J 


RBUFPA 


■54. J 


RBUFEA 


= 56, J 


PBUFSZ 


■58. I 


WBUFPA 


= 60. J 


WBUFEA 


=62. J 


WRUFRQ 


■64. J 


WBUFSZ 


■ 66. J 
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les 






166 






197 




000000 


lee 


000000 


000000 


189 


000004 


012516 


190 


000006 


000340 


191 


000010 


012524 


192 


000012 


000340 


193 


000014 


004772 


194 


000016 


000000 


195 


000020 


005510 


196 


000022 


000340 


197 






198 


000024 


012636 


199 


000026 


000340 


200 


000030 


00003! 


201 


000032 


000000 


202 


000034 


012404 


203 


000036 


000000 


204 




000040 


205 


000040 


000000 


206 


000042 


000000 


207 


000044 


000000 


208 


000046 


012752 


209 


000050 


000000 


210 


000O52 


000000 


211 


000054 


OOOOOOG 


212 


000056 


000001 


213 




000060 


214 


000060 


005644 


215 


000062 


000340 


216 


000064 


001406 


217 


000066 


000200 
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iLOAD TRAP AND VECTOR AREA 





,■0 






.WORD 


0,0 


BUSEVi 


BUSEPR 
PPTY7 




RESIVl 


PESINT 
PRTY7 




TRCVl 


TRCI 





lOTVi 


PIRQ, 
PRTY7 




PMBFVI 


PWBDN 
PRTY7 




EMTVI 


. + 2 
HALT 




TRPVI 


TRPINT 



.■40 






.WORD 


OPEN 


DDPPTRi 


.WORD 







.WORD 







LOGIC 






OPEN 






OPEN 






CAST 






.■60 




KYBDVl 


KPSPVC 
PRTY7 




TTPIVi 


TTYSPV 
PPTY4 





IBUS ERROR TRAP POI"TER. 

IRESEPVED INSTPUCTICIN TRAP. 

jTRACE TRAP POINTER, 

jSERVICE PIRQ CALL 

jPREVENT LOWER LEVEL MODULE FROM COMING IM ON 

rTOP OF HIGHER LEVEL ONES 

jPOWER FAIL POINTER. 

lEMT POINTER 

jTRAP POINTER. 



(LOAD MEDIUM INDICATOR, 

;CHAIN MODE ONLY. POINTS TO DDPMON. 



SGLOBAL POINTER FOR CAST MODIFICATION 
jALSO FOB CAST 



jKYBD INTERRUPT POISTEB. 
(TELETYPE PRINTER SERVICE 
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218 
219 
220 
221 
222 
223 
224 
225 
226 
227 
228 
229 
230 
231 
232 



000200 
001000 



000200 
000137 
001000 
000137 



MACYll 27(1006) 22-APR.77 12(53 P«GE 9 

(FROM 70 THROUGH 776 FILLED WITH ,*7 ANH MALT, 



(LOAD STARTING SDDpFSSFS 



001414 
001414 



OO1004 000000 



.■200 

JMP 

.■1000 

JMP 



FAKESRJ OPEN 



STAPT 
STRPT 



(GO TO START OF VOMTOP. 
(GO TO START OF **r»'ITDP, 

(LOCATION OF PSFUDO SWITCH REG, WHEV USED 



Q«GD DEC/Xll SHORT MONITOR 
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233 






234 






335 


001006 


000 


336 


001007 


000 


SIT 


001010 


000 


23S 


OOlOll 


000 


339 


001012 


000 


240 


001013 


000 


241 


001014 


000 


242 


001015 


000 


243 


001016 


000 


344 


001017 


000 


245 


001020 


000 


246 


001021 


000 


247 


Q01032 


000 


246 


001023 


000 


249 


001024 


000 


250 


001025 


000 


251 


001026 


000 


252 


001027 


000 


253 


001030 


000 


254 


001031 


000 


255 






356 


001032 


000 


257 






258 


00103) 


000 


259 


001034 


000 


260 


001035 


000 


261 






262 


001036 


000000 


263 


001040 


000000 


264 


001042 


000000 


265 


001044 


000000 


366 


001046 


000000 


267 


001050 


000000 


269 


001052 


000000 


369 


001054 


000000 


270 


001056 


000000 


271 


001060 


000000 


273 


001063 


000000 


273 


001064 


000000 


274 


001066 


000000 


275 


001070 


000000 


276 


001072 


000000 


377 


O01074 


000000 


279 


001076 


000000 


379 


oouoo 


000000 


2B0 


001102 


000000 


391 


001104 


000000 


292 


001106 


000000 


29) 


001110 


000000 


294 


001112 


oonooo 


295 






296 


001114 


OOOnOO 


397 


001116 


000000 


2*9 


001120 


oooooo 
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jVARIABLE DATA ARFA CLEARED EVERY TIME RUN IS ISSUED OR "C IS TYPED 



SEQ 0163 



lOQUEl 


.BYTE 


OPEN 


TYPQUEl 


.BYTE 


OPEN 


SPCFLGl 


.BYTE 


OPEN 


DiRINDi 


.BYTE 


OPEN 


BKQUEl 


.BYTE 


OPEN 


BRAKEl 


.BYTE 


OPEN 


TTYBSYi 


.BYTE 


OPEN 


HODCNTI 


.BYTE 


OPEN 


MDDCTR! 


.BYTE 


OPEN 


ERRINDi 


.BYTE 


OPEN 


FUCTRj 


.BYTE 


OPEN 


MDXCTRl 


.BYTE 


OPEN 


MDXCTl 


.BYTE 


OPEN 


WBFLGt 


.BYTE 


OPEN 


STOPi 


.BYTE 


OPEN 


BKCNTi 


.BYTE 


OPEN 


XCNTJ 


.BYTE 


OPEN 


OUECTPt 


.BYTE 


OPEN 


XFRriGj 


.BYTE 


OPEN 


ROTCTi 


.BYTE 


OPEN 


PASTOTi 


.BYTE 


OPEV 


PASRELj 


.BYTE 


OPEN 


BKTIHRj 


.BYTE 


OPEN 


ROTt 


.BYTE 
.EVEN 


OPEN 


KBPTRl 


OPEN 




MOOPTRl 


OPEN 




ADDRLOs 


OPEN 




AODRHI: 


OPEN 




NUMBER! 


OPEN 




NUHBPAl 


OPEN 




NUMBEAl 


OPEN 




DSTADRl 


OPEN 




SRETRNI 


OPEN 




lOBKIDt 


OPEN 




YESI 


OPEN 




TABADRi 


OPEN 




PSTATi 


OPEN 




TRCPCj 


OPEN 




TRCPSm 


OPEN 




lOQli 


DPEN 




IDQ2J 


OPEN 




TYPOlf 


OPEN 




TYP02J 


OPEN 




TYPADRt 


OPEN 




TYPRKTs 


OPEN 




TYPCTRt 


OPEN 




OASCEAl 


OPEN 




DERRCTI 


OPEN 




SAVLOi 


OPEN 




SAVKIi 


OPEN 





»IOQUE AND TYPQUE MUST BE IN SAME »ORDit 
iSPCFLG AND DIRIND MUST BE IN SAME WORDIJ 



J TELETYPE BUSY 'LAG. 0« NOT BUSY, 



;0«ERROR, NOT OaOATA ERROR. 

I EXTENDED I/O MODULES NOT YET RUN IN CURRENT BANK 

•EXTENDED I/O MODULE COUNT 

sCURBENT VALUE OF XPLAG BEING CHECKED FOR 

JSTOP MODULES TO RELOCATE PROGRAM 

J BACKGROUND MODULE COUNT 

jRUNNABLE EXTENDED MODULE COUNT (TO CALCULATE ROTCT) 



fVRLUE USED FOR BUFFER POTATION TIMEOUT (IS TIMES 
jXCNT OR 377, WHICHEVER IS SMALLER) 
J ALTERNATE RELOCATION COUNTER- TOTAL ENDPASS 
jCALLS IN CURRENT BANK 

fBKMOD INSTR CTR- LOADED FROM BKTIME 
jMBUF ROTATION RATE CTR- LOADED FROM ROTN 



; MODULE POINTER 



I I/O auFm POINTERS, 



jLOAD TYPE OUEUE POTNTFB 
fUNLOAO TYPE QUEUE POINTER 



jIlSFD TO MONITOR CO^iSOLE TELETYPE TO PREVENT HANGING 
jUSED TO HOLD EA BITS FOR OCTAL TO 
jASCll COMVERSinn 
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299 


001133 


000000 


290 


001134 


OOOnoo 


291 


001)36 


000000 


292 


001130 


000000 


293 


001132 


000000 


294 


001134 


000000 


395 


001136 


000000 


396 


001140 


000000 


397 


0011*2 


000000 


299 


001144 


onoooo 


209 






)00 







I7C1006) 


32-APR-77 


MODADRl 


OPEN 


TYPRli 


OPEN 


TYPR3! 


OPEN 


TYPR3J 


OPEN 


TYPR4J 


OPEN 


TYPR5: 


OPEN 


SPSAVj 


OPEN 


ERRPOSl 


OPEN 


COFLGi 


OPEN 


CCSRAi 


OPEN 
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SEQ 0164 



! ADDRESS OF C"RRENTt,Y EXECUTING (lOQ LEVEL) MODULE 
»SAVE LOCATIONS FOR TYPE ROUTINE REGISTERS 



I INDICATE RET"B*I TO CHECKDATA ROUTINE 
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DXO»BM,Pii 2J-»PP.77 1SI42 



301 






30J 






303 


noii46 


177560 


304 


001150 


177562 


305 


001153 


177564 


306 


001154 


177566 


307 


001156 


177570 


308 


001160 


123456 


309 


001162 


023333 


310 


001164 


000000 


311 


001166 


000000 


312 


001170 


000000 


313 


001172 


000000 


314 


001174 


000000 


315 


001176 


000000 


316 


001200 


oooooo 


317 


001202 


000000 


316 


001204 


oooooo 


319 


001206 


oooooo 


320 






321 


001210 


oooooo 


322 


001212 


001414 


323 


001214 


oooooo 


324 


001216 


oooooo 


325 


001S20 


oooooo 


326 


001222 


oooooo 


327 


001224 


oooooo 


328 


001226 


oooooo 


329 






330 


001230 


oooooo 


331 


001232 


oooooo 


332 


001214 


000024 


333 


001236 


006000 


334 






335 


001240 


oooooo 


336 


001242 


oooooo 


337 


001244 


oooooo 


339 


001246 


oooooo 


339 


001250 


oooooo 


340 


001252 


oooooo 


341 






342 






343 


001254 


014 


344 


001255 


000 


345 


001256 


000 


346 


001257 


000 


347 


001260 


000 


348 


001261 


000 


349 


001262 


000 


350 


001263 


000 


351 


001264 


oooooo 


352 


001366 


onoioo 


353 


001270 


000400 


354 


001272 


000 


355 


001273 


000 


356 


00)274 


000 
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|VARI»BIiE AND FIXED DATA AREA NOT CLEARED WHEN PUN OR *C IS ISSUED 



I IF THIS AND NEXT LOC ARE CHANGED, 
(CHANGE bOC.S I.PWK1 AMD t.PHK2 IF PRESENT 

I ADDRESS OF THE SWITCH REGISTER 
tRANOOM NUMBER IS CALC'ED AND PASSED HERE 
»ALS0 USED BY RAND. 



iSTARTING AODR OF FREE CORE ("MULTIPLE OF 1000 OCTAL) 

»LOCORE EA BITS 

jTOP 12 SITS OF LOW COPE ADDRESS 

jCONTAINS ST, ADDR OF HIGHEST BUFFER. 

J (TOP 12 BITS ONLY) 

SCOMTAINS CURBE»!T WRITE BUFFER ADDR. 

jMRITE BUFFER EA BITS (SHIFTED TO POS 4.51 

I TOP 12 BITS OF WBUF ADDRESS IF USING POTtTION 

jTOP ALLOWABLE PROGRAM OFFSET 

SCURREWT PROGRAM OFFSET 

iDESTINATIOH OFFSET 

SSAVE LOCATIOM TOR DESTINATION OFFSET 

! DUPING HOVE 

I BANK BEING MOVED (SOURCE ADDRESS) 

jPETURH ADDRESS FPOv MVCODE ROUTINE 

jMAX SIZE OF WRITE fiUFFFR. VARIES 
:IF BUFFER ROTATION is ENABLED 

ICT'LX RETURN ADDRESS 

fTOTAb NUMBER OF SYSTEM EPRORS 

J TOTAL NUMBER OF POWER FAILS 

JQUFUE POINTER INITIALIZATION FOR RUN.VING BKMODS 

jp» INHIBITED OP NOT PRESENT (LEAVE AS FULL 

jh'ORD FOR EASY -^ODIf ICATION AND TO GUARANTEE 

jTHAT FILCNT AND FILLER APE IN SAME hOPD) 

jFILCNT AND FILLER «UST BE IN SAME WORD 



jPUN MODE INDICATOR 



» WRITE BUFFFR ROTATION LOCKED FLAG 

jRELOCATinn ALLOWED FLAG 

S POTATION COU'lTER USED WITH ROTL 

•POTATION CONSTANT USED WITH POTCNT 

(ROTATE PROGRAM py qK 

(FILL INDICATOR. 

(CODE BEING RELOCATED 



SCO 0165 



IKSI 


177560 




TKBJ 


177562 




TPSI 


177564 




TPBi 


177566 




SRI 


177570 




RANNUMi 


123456 




RANHRKI 


23333 




MEMVAl 


OPEN 




MEMPAI 


OPEN 




MEMEAt 


OPEN 




MEM12> 


OPEN 




MEMSBEl 


OPEN 




MEHWASi 


OPEN 




LOCOREi 


OPEN 




ZCROi 







LC0R12i 


OPEN 




HC0R12J 


OPEN 




HCORSVl 


OPEN 




HBUFj 


START 




WBFEA: 


OPEN 




WB0F12I 


OPEN 




OFFMXl 


OPEN 




OFFSETI 


OPEN 




OFFSTDJ 


OPEN 




OFFSTMi 


OPEN 




MOVBNKI 


OPEN 




MAPRET( 


OPEN 




ERRLIHj 


20. 




MXWBFi 


AWODNM. 


START 


TTYBYTt 


OPEN 




CXRETj 


OPEN 




SYSCNTJ 


OPEN 




PWRCNTt 


OPEN 




BKPTRJ 


OPEN 




KTPRESi 


OPEN 




FILCNTI 


.BYTE 


12. 


FILLEPI 


.BYTE 





SYSERIt 


.BYTE 


OPEN 


RMODEl 


.BYTE 


OPEN 


CHNI 


.BYTE 


OPEN 


ROTII 


.BYTE 


OPEN 


ROTLl 


.BYTE 


OPEN 


relocj 


.BYTE 


OPEN 


ROTCNTj 


OPEN 




ROTNUMj 


100 




R0TSI7.I 


400 




FlLLIOl 


.BYTE 


OPEN 


MOVING} 


.BYTE 


OPEN 


RUNRFLJ 


.BYTE 


OPE^' 
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357 


001275 


000 


358 


001276 


000 


359 


001277 


000 


360 


001300 


010 


361 






362 


001301 


000 


363 


001302 


000 


364 


001303 


000 


365 


001304 


mo 


366 


001305 


003 


367 






368 


OOI3O6 


000 


369 


001307 


000 


370 


001310 


000 


371 


001311 


000 


372 


001312 


000 


373 


001313 


000 


374 


001314 


000 


375 


001315 


000 


376 


001316 


012 


377 


001317 


000 


378 


001320 


000 


379 


001321 


001 


3flO 


001322 


000 


381 




001324 


382 


001324 


OOOOOOG 


383 


001326 


000000c 


384 






385 


001330 


001604 


386 


001332 


OOOOOOG 


387 


001334 


OOOOOOG 


388 







LOCKl 


.BYTE 


OPEN 


HVDOHNi 


.BYTE 


OPEN 


RETRYl 


.BYTE 


OPEN 


OUECNTI 


.BYTE 


11 


MDL45I 


.BYTE 


OPEN 


8nwRFC( 


.BYTE 


OPEN 


MEMERF( 


.BYTE 


OPEN 


BKTIMEl 


.BYTE 


IP 


ROTNi 


.BYTE 


3 


PPRESi 


.BYTE 


OPEN 


CNTlJ 


.BYTE 


OPEN 


ATEl 


.BYTE 


OPEN 


MFLAGi 


.BYTE 


OPEN 


HMGFLGt 


.BYTE 


OPEN 


MOVFLG( 


.BYTE 


OPEN 


MSGFLG( 


.BYTE 


OPEN 


DATFLG( 


.BYTE 


OPEN 


SYSLIM( 


.BYTE 


10. 


TFLAGi 


.BYTE 


OPFN 


NSTOP( 


.BYTE 


OPFH 


CLOCK! 


.BYTE 


1 


ALLBKi 


.BYTE 
.EVEN 


OPEN 


CLOCKLi 


KWllL 




CLOCKPi 


KWltP 




HMGTIMl 


900. 




ALCLRj 


LCLEAR 




APCLRl 


PC LEAR 





•.pjt^.yzir ROTATnN o^ code execution 

(PETRY COUNT FOB COHF PPLOCATION 

(• OF TIMES TO CHECK lOOUE BEFORE CHECKING 

(TYPEO WHEN BOTH HAVE REQUESTS PENDING 

;M0"-ZEPO IF CPU IS 11/45 

(WRITE BUFFER BOTSTTON COUNT 



(« OF GWBMF CALLS (LESS ONE) NEEDED PliR 

(ROTBUF CALL 

(PARITY PRESE'.'T. OilMHIfiHTED HP NONEXISTE'lT 



(FLAG INDICATES CKHUNG ROUTINE IS BUSY 

(FLAG USED IN MTfCODF ROUTINE 

(FUG INDICATING MSGN OP MSGS CALL 

(FLAG INDICATING CKDATA OR DATACK CALL 

(MAX. NUMBER OF SYSTEM ERRORS ALLOWED 

(TIMFR FLAG INDICATING ERROR OR EOP 

(FLAG PREVENTING STOP FROM BEING SET 

(CLOCK FLAG SET FOR SHORT MONITOR 

(WHEN WON MEANS R'JN ALL BKMODS BEFORE RELOCATING 



(WILL BE 
(WILL BE 



IF NO KWll- 
IF NO KW11. 



L CLOCK 
P CLOCK 



(HUVC TIME LIMIT IN SECONDS 

(SUBROUTINE ADDRESS IK L CLOCK MODULE 

(SUBROUTINE ADDR IN p CLOCK MODULE 

(i«ILL DROP ANY I/O MODULE INACTIVE FOP 15, "INS, 
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SEQ 0167 



391 






392 






393 






394 






395 


001336 


137577 


396 


001340 


002641 


397 


001342 


001414 


398 


001144 


015232 


399 


001346 


137607 


4O0 


001350 


002641 


401 




001353 


402 


001353 


000003 


403 


0013S6 


000000 


404 


001360 


000000 


405 






406 







J *•• DO NOT CHANGE THE SEQUENCE OF THE NEXT 9 WDPDS *»• J 

jPEFER TO THE DOCUMENT FOR THE MONITOR CHECKSUM MODULE (BKBA) 

|FOR THE USE OF THE NEXT SIX WORDS, AND HOW THE TWO "OPEN" LOCATIONS 

J ARE DEFINED WHEN A NEW VERSION OF THE MONITOR IS RELEASED 

jLOW CHKSUM for PROC. with no RTT INST, 

(HIGH CKKSUM 

f BEGIN ADDR OF MONITOR PURE AREA 
jEND AOOR OF MONITOR PORE AREA 

jCONTAINS LOW CKSH OF MONITOR PURE AREA (PROC WITH RTT) 

JCOWTAIKS HI CKSH OF HO^ITOR PURE AREA 

I HOURS IN ASCII 
jMINUTES IN ASCII 
jSECONDS IN ASCII 



CHKL2I 


137577 




CHKH2t 


2641 




CHKSUMi 


.WORD 


START 




.WORD 


WCASEE 


CHKLll 


137607 




CHKHll 


2641 

.ODD 




HOURSi 


.BLKB 


3 


MIHITSi 


OPEN 




SEKNDSJ 


OPEN 
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407 
408 
409 
410 
4H 
412 
413 
414 
415 
416 
417 
418 
419 
4?0 
471 
422 
473 
474 
425 
426 
427 
428 
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jVARIABLF QUE CALL AREA- KEPT I^ FRONT OF STAPT SINCE IT IS IMPURE CODE 

jCOMHON 'CUE CALL" ROUTINE, DOES A DIRECT DTSPATCH RATHER THAN 

»RE0UETNI7 DUE TO MULTIPLE POINTS CALLING THIS ROUTI'-E WHICH 
jMAY OVERLAP IF RFQUEUED, 



SEQ 0168 



001362 012700 001372 

001366 000137 002500 

001372 000000 

001374 000000 



001176 104421 
001400 OftOOM 
001402 000137 007202 



001406 000004 

001410 006426 
001412 OOOOOO 



COHOUEj MOV 
JMP 
CADDRi OPEN 
CSTARTj OPEN 



•CADDR.PO 
lOQSVN 



iCHECKDATA ERROP CSTA 
CDEBRJ PERRXS 

JMp CDPET 



rDESTINATION ADOP. 

jMODULE START APDP, (0 FOR MONITOR), 



t»0'?PE83 nr CFOATA CALL 



jTELETyPE ROUTINE PIRO CALL 

iTTYLNK IS FREQUENTLY MODIFIED DURING EXECUTION 



TTYSRVl PIBO« 
TTYLNIfl TTSRVl 
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429 










iSTSRTl 


!P SGQl 


lENCE 


430 


















001414 


000005 






STAPTi 


RESET 




001416 


012706 


016546 






MOV 


I5PB0T,R6 




001422 


012737 


012636 


000024 




MOV 


IPWRDN,PWRrv 




001430 


012746 


000004 






MOV 


IBUSEV,-tSP) 




001434 


012737 


177570 


001156 




MOV 


IH»BD5R,SP 




001442 


012737 


001456 


000004 




MOV 


•3(,BUSEV 




001450 


005777 


177502 






TST 


JSR 




001454 


000404 








BR 


4« 




001456 


012737 


001004 


OOIIS6 


311 


MOV 


«FAKESR,8R 




001464 


022626 








CMP 


(Sp)+,tSP)+ 




001466 


012637 


000004 




4(1 


MOV 


CSP)*,BOSEV 




001472 


012737 


016234 


001250 




MOV 


#M0D0-2»BKPTB 




001500 


005737 


001200 






TST 


LOCOBE 




001504 


001002 








BNG 


21 




001506 


004537 


016606 






JSR 


RS,5ETBUF 




001512 


004737 


012272 




2*1 


JSR 


PCCLROUS 




001516 


105037 


001257 






CLRB 


RMODE 




001522 


112737 


177777 


001021 




KOVB 


#"1,MDXCTR 




001530 


105037 


001262 






CLRB 


BOTL 




001534 


104406 


014062 






MSGli 


TITLE 




001540 


022737 


001004 


001156 




CMP 


tFAKESR.SP 




001546 


001002 








BNE 


551 




001550 


104406 


014756 






MSG8, 


HOSWP 




001554 


004737 


013262 




55«l 


JSR 


PCPOTCHK 


001560 


105737 


000041 






TSTB 


»$4i 




001564 


001402 








BEQ 


It 




001566 


104406 


014431 






HSG«. 


CLB40 




001572 


005037 


001224 




ISI 


CtR 


OFFSTO 




001576 


004737 


014060 






JSR 


PC.MVCODE 




001602 


004737 


012272 






JSP 


PC,CLPOUS 




001606 


004737 


012354 






JSR 


PC.CLBVEC 




001612 


105737 


001252 






TSTB 


KTpBES 




001616 


001002 








BNE 


5S 




001620 


004737 


015016 






JSR 


PCLOAOWC 




001624 


104406 


014122 




511 


MSG«, 


DOT 




001630 


105737 


001260 






TSTB 


CHN 




001634 


001405 








BEO 


I«lpUT 




001636 


112777 


000015 


177172 


6S: 


MOVB 


il5.9KBPTR 




001644 


000137 


007420 






JMP 


RUH 


001650 


012706 


016546 




INPUTi 


wnv 


*SPB0T,P6 




001654 


105037 


001256 






CLRB 


SYSERI 




001660 


012737 


016306 


001036 




MOV 


»K8UF,KBPTR 


475 


001666 


052777 


000100 


177252 




BIS 


»IE,?TKS 


476 


001674 


113737 


001300 


001027 




MOVB 


QUECNT.QUECTR 


477 

















jCLEAR THE WORLD. 

I SET UP STACK. 

jSET UP POWER FAIL VECTOR, 

»SAVE PRESENT BUS ERR TRAP 

>SET SRsHARDWARE SR 

(SET NEW BUS ERR TRAP 

jIS IT HARDWARE SR? 

SiF YES, RESTORE TRAP 

»ELSE SET UP SOFTWAPE SB 

(RESTORE STACK 
[RESTORE BUS ERR TRAP 

J INITIALIZE TO START BRmOOS WITH 1ST ONE 
jDO*IE BUFFER SETUP? 
J BR IF YES. 
jNO. DO IT. 
(CLEAR QUEUES. 

(INITIALIZE COUNTER 

(HAKE SURE POTATION IS NOT LOCKED 

(TYPE THE TITLE 

(DO WE HAVE A REAL SR? 

(BP IF YES 

(ELSE TELL HIM WHERE IT IS 

(CHECK IF ROTATE ALLOWED AND TYPE RANGE. 

(ANY LOAD MEDIUM BITS SET ? 

(NO, CONTINUE 

{" TO EXERCISE LOAD MEDIUM YOU MUST CLEAR LOC 40 

(MAKE SURE PROGBA" IS NOT PARTIALLY RELOCATED 

(CLEAR QUEUES IN CASE MVCQPE OVER WROTE THEM 

(INITIALIZE VECTOR AREA 

(KTll IN USE ? 

(YES, CONTINUE 

(NO, LOAD WORST CASE PATTERN IN BUFFER 

(TYPE DOT. 

(CHAIN MODE? 

(NO- GO AWAIT KEYBOARD INPUT 

(CLEAN OUT KEYBOBRD BUFFER WITH A CR 

(YES-STAPT RU^miNS. 

(RESET STACK. 

(CLEAR SYSTEM EPBOR INDICATOR. 
(INITIALIZE KYBD BUFFER POINTER. 
(ENABLE KYBD INTERRUPTS. 
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47S 








479 








480 


001702 


105337 


001027 


4S1 


001706 


003004 




492 








483 








484 








485 


001710 


113737 


001300 


486 


001716 


000405 




487 


001720 


105737 


001006 


488 


001724 


001402 




489 


001726 


000137 


002424 


490 


001732 


005737 


001060 


491 


001736 


100422 




492 


001740 


105737 


001007 


493 


001744 


001412 




494 


001746 


105737 


001014 


495 


001752 


001002 




496 


001754 


000137 


002650 


497 


001760 


005337 


001110 


498 


001764 


0010O2 




499 


001766 


000137 


006426 


500 


001772 


005737 


001070 


501 


001776 


001402 




502 


002000 


000137 


002622 


503 


002004 


105737 


001257 


504 


002010 


001734 
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SEO 0170 

(QUEUE CHECK, NOTE THAT IF lOBKID IS NEGATIVE, NO TYPE QUE REQUESTS WILL BE SERVICED 

(COUNT TO PREVENT BREAK CALLS FROM LOCKING OUT TYPIWR 
(ALSO PREVENTS HIGH SPEED INT DEVICES FROM 
(LOCKING OUT TYPE QUEUE AND RUN SERVICE 
(STARTUP OF MODULES 

(RESET QUE COUNTER 

(10 QUE REQUEST PENOING? 

(GO SERVICE IF YES. 

(STARTING 1/0 MODULES? 

(BR IF YES. 

(TYPE REQUEST PENniMG? 

(BR IF NOT, 

(TTY BUSY? 

(BR IF YES. 

(NO, GO SERVICE TYPf. QUEUE. 

(CHECK FOR TTY HUNG 

(UNHANG TTY 

(BACKGROUND MODULE PENDING? 

(JUMP IF YES 

(IN PUN MODE? 

(BR IF NOT, GO CHECK AGAIN. 



QUETST( 


DECB 


OUECTR 




BGT 


1$ 




MOVB 


OUECNT,QUECTR 




8R 


2$ 


Hi 


TSTB 


lOflUE 




BEQ 


2( 




JMP 


lOQSVC 


2SJ 


TST 


lOBKID 




BMI 


QTSTC 


3$l 


TSTB 


TYPQUE 




BEQ 


OTSTB 




TSTB 


TTYBSY 




BNE 


QTSTA 




JMP 


TYPSVC 


QTSTAl 


DEC 


TYPCTR 




BNE 


QTSTB 




JMP 


TTSRVl 


OTSTBl 


TST 


TRCPC 




BEQ 


QTSTC 




JMP 


BKQSVC 


QTSTCj 


TSTB 


RMODE 




BEQ 


OUETST 



9«|;D PEC/Xll SHORT MONITOR HACYU 27C1008) 22-*PR-77 13|53 P»<!E IT 

DXOABH.Pn 21.APP.77 13|43 g^^ ^^^^ 

50! ,RUN MOBE SERVICE ROUTINE, 

'2* tNOTE THftT MODULE'S STACK POINTER IS REINITIALIZED BUT OTHER 

!^' iRESloTEPS HAVE AN"if PheVidus VALUES RESTORED AT START OR RESTART 

509 00281? 10S737 OOIOIJ RUNSVCl TSTB BRAKE iIS THE BRAKE ON? 

510 002016 0013J1 BNE OUETST ;BR IF yfs, DO HQi" IS'"' MORE unD"'E« 
III ^"l^l^. '"?!'! 0°'"' TSTB ALLBK ,RUN ALL BKMODS BEFORE "RELOCATlNrr' 

512 002024 001407 bEQ 12| ,N0, CONTINUE 

513 002026 105737 001024 TSTB STOP jWAITIHG TO RELOCATE 7 

514 002032 001407 BEO 13$ jNO, CONTINUE 

515 002034 012737 040020 001060 MOV 140020, lOBKID jSTABT UP ONLY BKMOB'S 

516 002042 00041! BR 1» jCOMTINUE 

51S 002044 105737 001024 12|! TSTB STOP jSTOP SET? 

519 002050 001314 BNE OUETST jYES, OON'T START ANY MORE MODULES 

520 002052 105737 OOIOJS i3li TSTB MODCTR jMODCTR .0? """Kis 

521 002056 001007 BNE 1$ jBR IF NOT, 

522 002060 105737 001260 TSTB CHN ,yES. ABE WE IN CHAIN MODE? 

523 002064 100004 BPL it ,BR IF NOT. 

554 002066 012737 040020 001060 MOV «40020, lOBKID »SWITCH IT TO BACKGROUND AND PREVENT LOOPING 

525 002074 000702 BR OUETST iTHRU BACKGROUND MODULE SERIES MORE THAN ONCE 

526 002076 062737 000002 001040 1S| ADO »2,M0DPTB jPOINT 70 NEXT MODULE 
5J7 002104 017700 178730 f»0V «"ODPTP,R0 jMODULE AODR TO RO. 

528 002110 001474 BEQ 71 -BR IF NO AHDR, 

529 0C2!!3 C16046 0QQQ9C MOV SftTfBf,\.-tss', i.itt u,-.n;tr.r«s s-ss<:i- 

530 0021.16 042716 016000 PIC tBITi2iBiTi I'lBITl 0^(8?)' jMASK SPECIAL INDICATORS 

531 002122 022637 001060 CMP tSP)+,IOBKID sCORRECT "OnuLE TYPE fO RUN? 

532 002126 001134 BNE 11» jNO- BRANCH 

533 002130 005787 001222 TST OFFSET jIF OFFSET 0, IGNORE BITS 10 til 

534 002134 001414 BEQ 28 : CONTINUE 
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DXOARM.pi] 21>APP-77 12142 

535 002136 032760 004000 000020 BIT »BIT1 1 ,STATCPO) jBITU SET? 

536 002144 001125 BNE US jVES- OON'T RUN MODULE SINCE OFFSET NOT 

537 002146 032737 001777 001222 BIT »)777. OFFSET jOFFSET 32K MULTIPLE? 

539 002154 001404 RirQ 2S »yES- IGNORE BIT 10 

540 002156 032760 002000 000020 BIT IBITIO. STATCBOJ |N0- BITIO SET? 

541 002164 001115 BNE ijj jYES- DON'T PUN MODULE 

542 002166 005737 001060 2t> TST lOBKID jBACKGROUND MODULE? 
543 

544 
545 

546 002172 100406 BMI 3( ,pR jp pjoT^ 

547 002174 112737 177777 001013 "nVB «-l, BRAKE )YES. APPLY BRAKE. 

548 0022O2 013737 001040 001250 MOV MODPTR.BKPTB jRECORD MODO ADDRESS OF CURRENT BKHOO 

549 002210 0J27S0 010000 000020 3«! BIT «BIT12# STATCPO) j5XTEV0ED 1/0 MOOULE? 

550 002216 001402 BEQ 4S ;N0- BRANCH 

551 002220 105237 001022 INCB MDXCNT lYES, COUNT IT 

552 002224 105060 000005 4(1 CLRB XFLAGCRO) iCLEAR INDICATOR 

553 002230 016060 000024 000046 MOV SPOINTfRO) .SVR6CR0) iSET Up MODULE SP POINTER. 

554 002236 105737 001274 TSTB RUNPFL 

555 002?42 001004 BNE «• 

556 002244 016037 000022 001054 44tl MOV INIT(RO) .DSTAOR »5ET UP DESTINATION ADDR. 

557 002252 000407 BR 6» 

559 002254 016037 000062 001054 Sll MOV RSTPT(RO) fOSTADR 

559 002262 005760 000026_ TST - PSCNTCRO) »HAS MODULE BEEN THRU START YET? 

560 002266 001001 BNE 6S jBR IF YES 

561 002270 000765 BR 44$ rELSE GO BACK 

562 002272 105337 001016 6$) DECB MODCTR |DECR COUNT OF MODS INITED. 

563 002276 000137 002514 JMp lOOSVE jGO TO START MODULE 

564 002302 022737 040000 001060 7$l C»P »40000i lOBKID JFINISHED WITH SPECIAL BKMOD ? 

565 002310 001004 BNE 8$ (BR IF NOT, 

566 002312 012737 041000 001060 MOV »4l000, lOBKID »YE8, SWITCH TO NBKMOD 

567 002320 000434 BR 10$ (CONTINUE 

568 002322 022737 041000 001060 8(1 CMP 141000, I08K1D jFINISHEO WITH NBKHODS ? 

569 002330 001013 BNE 9$ fNO, CONTINUE 

570 002332 012737 140000 001060 MOV #1 40000, lOBKIB lYES, SWITCH TO lOMOD, 

571 002340 112737 177777 001021 HOVB »-l,MDXCTP JINITIALLY LOCK MBXCTH 
572 

573 

574 

575 

576 002346 105037 001022 CLRB MDxCNT (INITIALIZE COUNT 

577 

57B 

579 

580 

591 

582 002352 105037 001320 CLRB NSTQP »ALLOH STOP FLAG TO BE SET 

583 002356 000415 BR 10$ i CONTINUE 

584 002360 005737 001060 9$t TST lOBKlD ,IF ALREADY BACKGROUND 
5BS 002364 100012 BPL 10$ jDON'T RESET MDXCTB 
586 

587 
588 
589 

590 002366 113737 001022 001021 MOVB MDXCNT, MDXCTR (SETUP MDXCTR 



SEQ 8172 



OAEO DBC/Xll SHOPT MOHIIOP 
DXOABM.PII ai-»PP-77 l?i42 



MACYil 27Cie06) 
001066 



5<»t 002374 012737 15*0020 

592 

593 

594 

595 

596 002402 013737 001250 001040 

597 I 

598 002410 000403 

599 002412 012737 016234 001040 10$J 

600 003420 000137 001702 lUl 
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MOV «40O2O,inBKID iSWTTCH TO BACKSRDU1D MODE 



SEQ 0173 



MOV 

MOVE 

BR 

MOV 

JMP 



BKPTR.MODPTB 

tl.RUNRFL 

11$ 

«M0DO-2,MODPTR 

OUETST 



»CONTINUE WITH NEXT BKMOD 
tSET RUN RESTART FLAGll/SO 



J POINT TO MODULE TABLE START, 



»••**•*••♦*♦ 



OAED DEC/Xll SHORT mO(-:TOS 
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601 
602 
603 
604 
60S 
606 

607 01^2424 023727 

608 002433 103403 

609 007434 012737 

610 002442 n5337 

611 002446 017700 

612 002452 062737 

613 002460 010001 

614 002462 014046 

615 002464 022726 

616 OO2470 001002 

617 002472 000137 

619 002476 005720 
619 

620 002500 012037 

621 002504 012000 

622 002506 001002 

623 002510 000177 

624 002514 116037 

625 002522 032760 

626 002530 001402 

627 002532 000137 

628 002536 032760 

629 002544 001002 

630 002546 000137 

631 002552 010037 

632 002556 010637 

633 002562 062700 

634 002566 014006 

635 002570 014005 

636 002572 014004 

637 002574 014003 

638 002576 014002 

639 002600 014001 

640 002602 014000 

641 002604 01374S 

642 002610 105066 

643 002614 013746 

644 oo2«ao nn(ioo« 
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I I/O QUE SERVICE ROUTINE. 

iSCRVICES PIROtiQUESf AND BPEAKS CAILS 

iNOTE THAT PIRQ SERVICE CAN OCCUR ON TOP DF THIS ROUTINE- SO 

iLEVEL 7 PRIORITY IS REQUIRED IT COUNT IS DECREMENTITD AFTER I0Q2 

lis MOVED 



^ll07f> 017116 IQOSVCl 



016606 OOS076 

001006 

176424 

000002 001076 



1 ■>4407 
003136 



176340 

000020 001066 

020000 000020 

001702 

040000 000020 

001702 
001122 
001136 
000050 



001066 
000001 

001054 



1«» 



IDOSVE 
lOOSVA 



1(1 
3«l 

lOOSVD 

I00SV3 
RTTll 



PLO 

MOV 

DECB 

MOV 

ADD 

MOV 

MOV 

CMP 

BNE 

JMP 

TST 

i MOV 
MOV 
BNE 
JMP 

I MnVB 

i BIT 
BEQ 
JMP 
BIT 
BNE 
JMP 
MOV 
MOV 
ADO 
MOV 

i HOV 
MOV 
MOV 
MOV 
MOV 
MOV 

i MOV 
CLRB 
HOV 
RTT 



I0Q2,»in0LIM 

It 

»t00>1002 

lOQUE 

«IOQ2,R0 

•2,1002 

R0,P1 

-tRO),-(SP) 

iBREAXt,CSP}+ 

2a 

BREAK, 
tPO) + 

CR01+,DSTADR 

tPO)+,RO 

lOOSVE 

«DSTADR 

5TAT(R0),RSTAT 

(tBIT13.STAT(R0) 

1» 

QUETST 

«BIT14,STAT{R0) 

2S 

QUETST 

RO.MODADR 

R6,SPSAV 

»SVR6+2»R0 

-(R0),R6 

-tP0),R5 

-(R03,R4 

-(R0),R3 

-(R0)iR2 

-(R0),R1 

-CROJfRO 

RSTAT,-CSP) 

l(SP) 

DSTRDR,-CSP) 



i REACHED LIMIT OF QUEUE? 

;BP IF NOT. 

(BESET I0Q2, 

SDECREMENT REQUEST COUNT 

•GET PC+2 OF CALL. 

(UPDATE 1002. 

(SAVE PC+2 OF CALL 

(PUSH CALL ON STACK 

(BREAK CALL? 

(NO, CONTINUE 

(YES, GH SERVICE IT 



(GET DESTINATION 4DDR, 

(GET MODULE ADOR. IS IT 0? 
(BR IF NOT. IT'S A "ODULE. 
(GO DO MONITOR FUNCTION, 
(GET PUN STATUS. 
(MODULE STOPPED? 
(NO, CONTINUE 
(YES, FORGET IT 
(IS MODULE SELECTED 7 
(YES, CONTINUE 
(NO, FORGET IT 
(SAVE RO. (MODULE ADDR). 
(SAVE MONITOR STACK TOOJ, 
(RESTORE MODULE'S PEGS, 

(STARTING WITH STACK POINTER, 



(LOAD RUN STATUS. 
(KERNEL, 1ST REGISTER SET 

(LOAD DESTINATION ADDP. 
(GO TO DESTINATION, 



OkED DBC/Xil SHORT HOKITQR 
DXQkBM.rn }1-«PP«7T 13143 



MkCyll 37(1006) 33-APR-77 13153 PAGE 31 



SG9 0175 



645 
646 
647 
641 
649 
6S0 
651 
653 
653 



003633 
003630 
003616 
003643 



013737 
113737 
017700 
005037 



0OJ070 
001073 
174178 
001070 



001054 
001066 



tBikCKGPOUND QUEUE SERVICED HERE. 
BKOSVCi 



MOV 


TRCPC,DST*DP 


MOVB 


TRCPSM,RSTAT 


HOV 


•MODPTRfRO 


CLR 


TRCPC 



003646 000735 



lOOSVA 



jSET UP DESTINATION AODR. 

>SET UP RUN STATUS. 

I MODULE START AD5R TO RO, 

(CLEAR BK MODULE MAITINQ INDICATOR, 

>ir ERROR OCCURS, WILL STOP HODULE TROM FURTHER 

tEXeCUTION UNTIL ERROR IS REPORTED 

tGO GET GOINQ. 



QAED DEC/xn SHORT MONITOR 
DXOABM.Pll 31-APR-77 13«43 
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SEQ 0176 



6S4 










iTYPE QUE SERVICE ROUTINE. 






«5S 

656 
657 










iREMOVES PC'fS 


OF CALL FROM Q, 


PASSING IT IM PI 




002650 


023727 


001103 


017572 


TYPSVCJ 


CMP 


TypQ2»»TYPLIH 


> REACHED UPPER END !?F 


QUE'JET 


6SB 


002656 


103403 








BLO 


IS 


jBR IF NOT. 




659 


002660 


013737 


017116 


001103 




MOV 


«TYPE0,TYPQ2 


»YES. RESET TyPQ3. 




660 


003666 


105337 


001014 




Itl 


INCB 


TTYBSY 


jINOICATE TTY BUSY. 




661 


002673 


017701 


176204 






HOV 


•TYPQ3.R1 


jGET PC+2 OF CALL. 




663 


002676 


063737 


000002 


001103 




ADD 


»2,TYPQ2 


» UPDATE TYPQ2, 




663 


002704 


105337 


001007 






DECB 


TYPOUE 


jDECREMENT REQUEST COUNT. 


664 


003710 


010146 








MOV 


R1,-(SP) 


J PUSH PC+3 OF 


CALL 


665 


002713 


005741 








TST 


-fSl) 


jPOTNT TO CALL. 




666 


0037'* 


010137 


001046 






HOV 


Rl, NUMBER 


;SAVE ADDRESS OF CALL 




S87 


n»?770 


OIITOi 








MDV 


(RDfRl 


rGET CALL 




668 


002732 


006301 








ASL 


PI 


»TI"ES 2. 




669 


002724 


016101 


171726 






MOV 


TYPTAB»TRP3-4(R1),RI |FORM SERVICE 


ADDR. 


670 
671 
673 


002730 


000201 








RTS 


Rl 


(GO TO IT, RESTORE Rl, 




002733 


004636 






TYPTABt 


.WORD 


PASEND 






671 


0097*4 


004*40 


00SS24 


003516 




.WORD 


ENDSVr.BRBSVC! 


iERSVCt 




674 


"02742 


003110 


000001 


003506 




.WORD 


MSG.,1,ERSVC3, 


,MSGN.,1,1,1,1,MSGS.,1.1, 


,DEPRX,, 


675 


002750 


003004 


000001 


000001 












676 


002756 


000001 


000001 


002774 












677 


002764 


000001 


000001 


003344 












678 


002772 


003150 

















QAED DEC/Xll SHORT MONITOR 
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SEQ 0177 



679 








(MSGN, 


ROUTINE. 


, SERVICES CAL! 


680 














681 


003774 


113737 


177777 001314 


MSGS.I 


MOVB 


«-l.MSGrLG 


683 


003003 


000403 






BR 


MSCONT 


683 


0O3004 


105037 


001314 


MSGN.i 


CLRB 


MSGFIiG 


684 














685 


003010 


013137 


001064 


MSCONTt 


MOV 


(R1)'»«TABA0R 


686 


003014 


013137 


001374 




MOV 


(R1)+.CSTART 


687 


003030 


010137 


001373 




MOV 


R1,CADDR 


688 


003034 


013701 


001374 




MOV 


CSTART.Rl 


689 


003030 


033777 


030000 176130 




BIT 


IBIT13,8SP 


690 


003036 


001033 






BNG 


HSGl. 


691 


003040 


105737 


001314 




TSIB 


HSGFLG 


693 


003044 


100410 






BMI 


1$ 


693 


OO3046 


004737 


004314 




JSR 


PC.ENDCOH 


694 


003053 


004537 


006340 




JSR 


RS.TYPEN 


695 


003056 


014137 






CRCP 




696 


003060 


015541 






AEND 




697 


003063 


0J5576 






$PASS 




698 


003064 


000000 











699 


003066 


013701 


001064 


iti 


MOV 


TABADR.Pl 


700 


003073 


013146 




2*1 


MOV 


(Pl)+»-(SP5 


701 


003074 


033716 


177777 




CMP 


i-l,(SP) 


703 


003100 


001413 






BEO 


MSGl, 


703 


003103 


004737 


006356 




JSR 


PC, TYPE 


704 


003106 


000771 






BR 


21 



)SET MSGS CALL FLAG 

iCONTINUE 

ISET MSGN CALL FLAG 

;GET ASCII TABLE ADOR. 

iMODULB AODR TO CSTART, 

» RESUME ABOR TO CADPB. 

jMODULE ADDP TO Rl. 

jINHIBIT ERROR PRINT? 

>BR IF YES. 

;IS THIS A MSGS CALL T 

»yES, CONTINUE 

jNO, 00 COMMON STUFF. 

tTYPE 

I? CARRAGE RETURNS 

»C0HM0N HEARER, 

(PASS I. 

> TABLE ADDR TO Rl . 
jGET MESSAGE ADDR. 

(TERMINATOR? 
»BR IF YES. DONE. 
«N0. TYPE MESSAGE. 
iGO DO IT AGAIN. 



QAED DEC/Xll SHORT MONITOR 
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705 








706 








707 


003110 


012146 




708 


003112 


010137 


001372 


709 


003116 


005037 


001374 


710 


003122 


004737 


006356 


711 


003136 


105037 


001014 


712 


003132 


000137 


001362 



lMSG$ CALL SERVICED HERF 
MSG.t 



MSGl. I 



MOV 


tRl)+.-(SP) 


MOV 


Pl.CADDR 


CLR 


CSTART 


JSP 


PC, TYPE 


CLRB 


TTYBSY 


JMP 


COMOUE 



:ASCII MESSAG"^ AODR TO STACK, 
fRESUME ADDP TO CADOP, 
rlNDICATE MONITOR QUE CALLING, 
»G0 TYPE DESIRED MESSAGE. 

iGO QUEUE UP TO RESUME. 



QAGD QEC/Xll SHORT MONITOR 
b'tiJSSM.Pll 21.APR«77 13(42 



713 
714 
715 
716 
717 
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iBRGAK ROUTINE. SERVICES BREAK CALL, 



SEQ 0179 



003136 012100 

003140 010137 001054 

003144 000137 002514 



BREAK, I MOV (Rl)+»RO >OET MODULE ADDR, 

MOV Rl.DSTADR iGET 0ESTINATI01 ADBR, 
JMP lOOSVE jOUE UP TO RESUME 



QAED DEC/XIl SHORT MONITOR 
DXOABM.PM ji.»pR.77 I2i42 





























003150 


010137 


001372 




003154 


004737 


004376 




003lfiO 


012601 






003162 


010J37 


001374 




003166 


004537 


011206 




003172 


016141 






003174 


004737 


004376 




003200 


004537 


011744 




003204 


016153 






003206 


004737 


004376 




003212 


004537 


011744 




003216 


016205 






003220 


032777 


020000 




003226 


001004 






003230 


012746 


016140 




003234 


004737 


006356 




003240 


000137 


004222 
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jMSGOS SERVICE- TYPE DATA ERROR COU«T AND TRA«SrER $lZf. 
J AND HALT MODULE TF NECESSARY 



SSET UP RESUME APDRJTSS 
jGET MODULE ADDRESS 



;SAVE ADDRESS 
»GET MODULE «IAME 



;SETtlP ERROR COt'NT tASCTI) 
•SETUP TOTAL viORDS TRANSFERRED 



tlNhlBIT ERROR PRINTOUT? 

tVES- BRANCH 

• NO- TYPE (MESSAGE 



SKO ,118 



MSGD . 1 MOV 


Rl.CADDR 


JSP 


PC.TYPDAT 


MOV 


CSP)+,R1 


MOV 


PJ.CSTART 


JSP 


R5,FILLNM 


AERNM+1 




JSR 


PC.TYPDAT 


JSR 


RS.BDCNV 


AERCT 




JSP 


PC.TYPDAT 


JSR 


PS.PDCNV 


AERIOT 




BIT 


*Bllii,»SP. 


PNE 


MSGDl. 


MOV 


»*ERNM,-CSP) 


JSR 


PC. TYPE 


MSGDl.l JMP 


EPSVND 



sCHECK FOR HALTING «ODULE, AND RETURN IF -iiOT 



QkCD OEC/Xit SHORT MONITOP 
DXODAM.pti 31>APIt>T7 IIMI 
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3E0 mat 



738 
739 
740 
741 
743 
743 
744 
745 
746 
747 
748 
749 
750 
751 
752 
753 
754 
755 
756 
757 
758 
759 
760 
761 
763 
763 
764 
765 
766 
767 
768 
769 
770 
771 
773 
773 
774 
77'5 
776 
777 
778 
779 
790 
791 
792 
793 
784 
785 
786 
787 
788 
789 
79C 
791 



lOEPPX, BOUTINE. SEPVICE8 EXTENDED DAT* ERROR CALLS FROM THE MONITOR 
iCHECKDATA ROUTINE. TYPES ERROR INrORMATION AID RETURNS 



003244 
003353 
003354 
003360 
003364 
003266 
003272 
003276 
003303 
003306 
003313 
003316 
003320 
003323 
003326 
003333 
003334 
003336 
003342 
003344 
003350 
003354 
003356 
003360 
003364 
003370 
003373 
003374 
003402 
003404 
003410 
003413 
003416 
003430 
003432 
003434 
003433 
003434 
003440 
003444 
003446 
003452 
003454 
003460 
003462 
003466 
003470 
003472 
003474 
003500 
003502 



112737 
005731 
010137 
004737 
012601 
010137 
004737 
013637 
004737 
012702 
004737 
005303 
001374 
016146 
004537 
016052 
005046 
005766 
001403 
012716 
004537 
015733 
013603 
012637 
0063J7 
012346 
013346 
063766 
103002 
062716 
005723 
004537 
016002 
012346 
012346 
063766 
103002 
062716 
004537 
015765 
004537 
015735 
004537 
015750 
013746 
000241 
006216 
005216 
004537 
016034 
000137 



000001 001017 

001373 
004376 

001374 
004376 
001046 
004314 
000005 
004376 



000030 
011744 



000003 



ooooso 

011524 



001140 
001140 



ooiue 

000030 
011534 

001140 000003 

000020 
011534 

011512 

iV, , 5 1 S 
001140 

011744 
004014 



111 



DERRX.I M0V8 
TST 
MOV 
JSP 
MOV 
MOV 
JSR 
MOV 
JSR 
MOV 

DERRXll JSR 
DEC 
BNE 
MOV 
JSR 
AERNMS 
CtR 
TST 
BGO 
MOV 
JSR 
ADTE6 
MOV 
MOV 
ASL 
MOV 
MOV 
ADD 
BCC 
ADD 
TST 
JSP 
ADTE4 
MOV 
MOV 
ADD 
BCC 
ADD 
JSR 
ADTE5 
JSR 
ADTE3 
JSR 
ADTE3 
MOV 
CIC 
A5R 
INC 
JSR 
A0TE7 
JMp 



tl.ERRlND 

(RO* 

RI.CADDP 

PC.TYPDAT 

(SP}f(Ri 

Rl.CSTART 

PC.TYPDAT 

(SP}t, NUMBER 

PCEMDCOH 

*5,R3 

PCTYPOAT 

R3 

Drppxi 

ERCNTCRDj-CSP) 
R5,BDC»IV 

-CSP) 

2CSP} 

1« 

iSO.tSP) 

R5,0ACNVX 

(SP)+,R3 

(SP)+|ERRPOS 

ERPPOS 

CR3)+»-tSP) 

CR3)+f-(SP) 

ERPPOS, 3(SP) 

2< 

120. (SP) 

(P3) + 

R5,0ACNVX 

C3)+f-(SP) 
(3)+,-CSP3 
EBRP0S,2(SP) 
3« 

1120. (SP) 
PS.OACNVX 

RS.OACNV 

R5.QACNV 

EPRP0S,-(SP5 



IPOINT TO RETURN LOCATION 
(SETUP RESUME ADDRESS 
(SET MODULE ADDRESS 

lAND SAVE IT 

» SETUP ADDRESS OF CKDATA CALL 



jEBROR COUNT TO STACK 

•CONVERT ERROR COUNT TO DECIMAL 



SCSRA EA BITS 

iCSR ADDRESS- ASCII 



J SAVE TABLE ADDBESS 
ISAVE OFFSET COUNT 



J SETUP BEAD BUFFER PA 
jGET EA BITS 



jGET PA OF BDADB 

jCET WRITE PA 
jGFT EA BITS 



CSP) 
tSP5 

PS.BDCKV 

ERSVX 



;GET ASCII 0? WBADR 

(CONVERT S/e TO ASCII 

iCO^VERT WAS TO ASCII 

lERROR POSITION IN BUFFER 

jCORRECT BACK FRO« BYTE TO WORD PTR 

jVAKE 1ST WORD »1 
»GET DECIMAL 

jGO TO COMMON BQUTI'iE 



OAEO DEC/Xn SMOPT MONtTOB 
DXQABM.Pll 21-APR-77 12|42 
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792 








793 








794 








795 


003506 


112737 


000003 


796 


003514 


000406 




797 


003516 


10iO3-l 


C01017 


798 


003522 


000403 




799 


003524 


112737 


000002 


eoo 


003532 


012137 


001374 


801 


003536 


122737 


000003 


802 


003544 


001002 




803 


003546 


012137 


001064 


804 


003552 


010137 


001372 


905 


003556 


013701 


001374 


806 


003562 


004737 


004314 


807 


003566 


005261 


000030 


808 


O03?72 


00100? 




809 


003574 


005161 


000030 


810 


003600 


012702 


000005 


811 


003604 


004737 


004376 


812 


003610 


005303 




813 


003612 


001374 




814 


003614 


016146 


000030 


815 


003S20 


004537 


011744 


816 


003624 


016052 




817 


003626 


105737 


001017 


818 


003632 


001047 




819 


003634 


004537 


011512 


920 


003640 


015750 




821 


003642 


004537 


011512 


822 


003646 


015735 




823 


003650 


012637 


001046 


824 


003654 


104413 


001046 


835 


O03660 


013746 


001050 


826 


003664 


013746 


001052 


927 


003670 


004537 


011524 


828 


003674 


016003 




fi29 


003676 


012637 


001046 


930 


003703 


104413 


001046 


931 


003706 


013745 


001050 


933 


003713 


013746 


001052 


933 


003716 


004537 


011534 


934 


003733 


015765 




835 


003734 


005046 




936 


003736 


016637 


000002 


837 


003734 


001403 




838 


003736 


013716 


000060 


839 


003742 


004537 


011524 


940 


003746 


015722 




B41 


OC37S0 


ooom 




942 


tiijst 


?526i: 




843 


C )5754 


30 ■•• 




844 


OiH?S0 


OH' t 




845 


003-52 


C0453' 


■'.U!12 


846 


flJJSS 


0158$"? 




B47 


O0577C 


005046 





lEHROR CALLS APE SERVICED HEPE, 
|R1 AT ENTRY CONTAINS PC+J OF CALL 



001144 



ERSVC2I 


MOVB 


#3,ERPIND 




BR 


EPSVCA 


ERSVCl! 


CLRR 


EPPIND 




BR 


EPSVCA 


ERRSVCl 


MOVB 


•2,FRRIND 


EPSVCAi 


MOV 


tPn + .CSTABT 




CMPB 


#3,FRRIND 




BNE 


t« 




MOV 


fRl)*.TAB*DP 


lit 


MOV 


RI.CAODP 




NOV 


CSTART.PI 




JSP 


PC.ENOCOM 




INC 


EPCNTtRt) 




BNE 


rusvCB 




COM 


eRCMTtPl) 


EBSVCBl 


MOV 


»5,B2 


ERSVCCi 


JSR 


PC.TYPDAT 




DEC 


P2 




BNE 


EPSVCC 




MOV 


EBCNT(R1),-(SP) 




JSR 


B5,BDC»!V 




AEBNMB 






TSTB 


EPBTNO 




BNE 


28 




JSR 


PS.OACNV 




A0TE2 






JSB 


RS.OACNV 




ADTE3 






MOV 


(SP)+.NUMBEB 




GETPAS, 


.NUMBER 




MOV 


NUMBPA.-CSP) 




MOV 


NUMBEA.-{SP) 




JSP 


BS.OACNVX 




ADTE4 






MOV 


CSP)+.NUMBEP 




GETPAS, 


.NUMBER 




MOV 


NUMBPA.-CSP) 




MOV 


NUMBEA,-(SP) 




JSB 


RS.OACNVX 




ADTE5 






CLP 


-(SP) 




MOV 


2CSP).CCSRA 




BEO 


It 




MOV 


160. (SP) 


11) 


JSR 
ADTE6 


BS.OACNVX 




BP 


EPSVX 


2«l 


'.ilii\ 


■;SP) + »t5F)* 
,'S,OAC!.V 




JSP 


PS.OACNV 




ACSRC 






cr<B 


•(SP) 



lINDTCATE EBPORM CATX. 

flNDICATE DATA EPBOB. 

; INDICATE '"'OOMAL" FBROP. 
fSAVE START AODB OF MODULE. 

jFRPOBN CALL? 
jBP IF »I0T 

i save table addr. 
tBESume addr to pse'*;db, 
i get back start aodp. 

>D0 COM^iON STUFF, 

jTNCPEMENT WOOULE'S FBROR COU'JT, 

;BB IF BESULT NHT 0. 

t RESET COUNT TO -1 . 

jGET TYPE DATA FROM QUEUE TO STACK, 

»D0 IT. 

;D0KE? 

fBB IF MOT. 

jERBOP COUNT TO STACK, 

SCONVERT EPPOB COUNT TO DECIMAL. 

jDATA ERROR? 

jBR IF NOT, 

jCONVERT WAS TO ASCII. 

(CONVERT S/P TO ASCII, BESET TYPQ2 , 

rGET AODB OF LOCATION READ 



iCONVEBT WASAOP TO ASCII. 



»CONVEBT SBADB TO ASCII. 

lO ONTO STACK 

iSAVE CSR ADDRESS 

lIF 0. BRANCH 

fSETUP EA BITS 

(CONVERT CSR ADDR To ASCII. 



(SKIP WAS A"D S/B, 

iCOK-VERT STAT PEG CONTEIIS TO ASCII, 



(CONVERT CSB CO"TENTS TO ASCII, 
(0 ONTO STACK 



OAED OCC/Xll SHOPT MONITOR 
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SCQ 01»3 



94S 003772 0S6637 000002 0011*4 



34; 

8S0 


004000 
004002 


001402 
012716 


000060 


8S1 


004006 


004537 


011524 


812 


004012 


015653 




8?3 


004014 


032777 


020000 


8S4 


004022 


001077 




es5 


004024 


004537 


006340 


8S6 


004030 


014127 




9<i1 


004032 


015541 




858 


004034 


015576 




P59 


004036 


016044 




860 


004040 


000000 




861 


004042 


122737 


000002 


862 


004050 


003406 




863 


004052 


004537 


006340 


864 


004056 


016012 




865 


004060 


015714 




866 


004062 


000000 




867 


004064 


000404 




868 


004066 


012746 


015645 


ss; 


004072 


004737 


006356 


870 


004076 


122737 


000001 


ST. 


004! 84 


001004 




872 


004106 


012746 


016026 


873 


004112 


004737 


006356 


87* 


004116 


012746 


014155 


875 


004122 


004737 


006356 


876 


004126 


122737 


000003 


877 


004134 


001032 




878 


004136 


013702 


001064 


879 


004142 


012703 


000010 


990 


004146 


022712 


177777 


881 


004152 


001417 




882 


004154 


013246 




883 


004156 


004537 


011512 


884 


004162 


015515 




885 


004164 


012746 


015515 


886 


004170 


004737 


006356 


887 


004174 


005303 




888 


004176 


001363 




899 


004200 


012748 


014133 


890 


004204 


004737 


006356 


891 


004210 


000754 




892 


004212 


012746 


014155 


893 


004216 


004737 


006356 


894 


004222 


005777 


174730 


895 


004226 


100410 




896 


004230 


023761 


001234 


897 


00*236 


003010 




898 


004240 


032777 


040000 


899 


004246 


001004 




900 


004250 


005037 


001144 


SOi 


004254 


onoi37 


SG4446 


902 


004260 


105037 


001014 


903 


004264 


005737 


001144 



17S134 ERSVXi 



001017 eit 



001017 2St 



000035 



MOV 

BS3 

MOV 

JSR 

iCSRRC 

BIT 

BKE 

JSR 

CRCR 

AEND 

«P&S8 

CRRNMB 



CMPB 

BLE 

JSR 

ADTe4K 

ADTCRR 



BR 

MOV 

JSR 

C«PB 

MOV 

JSR 

MOV 

JSR 

CMPB 

BWE 

MOV 

MOV 

CMP 

BEO 

MOV 

JSR 

HOLDe 

MOV 

JSR 

DEC 

BHE 



JSR 

BR 

MOV 

JSR 

ERSVNCi TST 
BMJ 
C'-P 
BGT 
BIT 
flNE 

1(1 ClP 
JMP 

2(1 CIRB 
TST 



4«l 
5St 



6$l 



2(SP)»CCSRA 

3s 

t60f (SP) 

R5,0AC«VX 

tBIT13,»SR 

EPSVND 

RS.TYPEK 



*2,CRRIHD 

18 

R5,TypS»! 



2« 

»AEPROR,-(SPJ 

rC,7?PE 

tl,ERRIND 

IADTEX,-CSP) 

PC, TYPE 

#ACRLF,-(SP) 

PC, TYPE 

t3,ERRIN0 

ERSVND 

TABADR,R2 

«8.,R3 

••1.C2) 

6t 

9C2)+»-(SP) 

R5,0ACNV 

fHOLDe.-CSP) 

PC, TYPE 

R3 

5S 

»ACRu",-£Sr3 

PC, TYPE 

41 

tACRLE.-CSP) 

PC, TYPE 

«SR 

It 

EPPLIM.EPCNT 

2$ 

#BIT14,»SR 

2« 

CCSRA 

E^DSVA 

TTYBSY 

CCSRA 



jSAVE CSR ADDRESS 
iSRAHCn I" hDuREbs 9 

|CO«VERT CSR ADDR TO ASCII, 

J INHIBIT ERROR PRINTT 

JBP IF YES. 

I TYPE 

1 2 CAPRAGE RETURNS 

ICOMMOH HEADER, 

tPASS t, 

t ERROR f. 

;DATA ERROR? 

jBB IF NOT, 

:YES, TYPE 

rDATA ERROR VALUES 



jTYPE ESROR MESSAGE. 

jEXTENDED DATA ERROR? 

lYES- OUTPUT POSITION IN BUFFER 



jERRORN CALL? 

jBR IF NOT. 

} TABLE ADDR TO R2. 

jWILL TYPE 8 VALUES PER LINE, 

ITERMINATOR? 

»BR IF YES. DONE. 

jPUT VALUE IN STACK, 

! CONVERT IT TO OCTAL. 

jAND PUT IT HERE 

:TYPE IT. 



»DONE e PER 
jBR IF NOT. 
I OUTPUT CRLF, 

»00 FOR MORE. 
sOUTPUT CRLF. 



INK? 



I HALT MODULE ON ERROR? 
>BR IF YES 
(S13 jEPPOP COUNT 2C OR GREATER? 

jBR IF NOT. CONTINUE MODULE EXECUTION, 

jYES, HALT MODULE AFTER 20 ERRORS? 

•NO- SKIP 

»CLEAR CCSRA 

(YES, 50 HALT MnDULE 

jQUE TO RFSUKE 

lIF NOT SETUP. PDM'T RESTORE INTO MODULE 
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904 


004270 


001407 




905 


004272 


013700 


001374 


906 


004276 


013760 


001144 


907 


004104 


005037 


001144 


908 


004310 


000137 


001362 



000050 



BEO 
MOV 
"OV 
CLR 
JMP 



3t 

CSTART,RO 
CCSRA, CSRACPO) 
CCSRA 
COMQUE 



(RESTORE CSRS I" MODULE 



QAED DEC/Xtl SHOOT MONITOR 
DXOABH.Pll 31>»PR-77 13i43 
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909 


004314 


10441 


1 001046 


910 


004330 


013741 


! 001050 




004334 


01374 


i 001053 




004330 


01374( 


i 001046 




004334 


160n( 






004336 


00453 


011513 




004343 


01556( 






004344 


O04S3 


011534 




004350 


01555 






004353 


00453 


011306 




004J56 


01554 






004360 


016141 


. 000036 




004364 


005311 






004366 


00453" 


011744 




004372 


01560( 






004374 


00030" 





ENDCOMl GETPAt.NUMBEB 



MOV 


NUMBPAi-CSP) 


MOV 


NUMBEA.-(SP) 


MOV 


NUMBER, '(SP) 


SUB 


Bl.tSP) 


JSR 


P5.0ACNV 


AEND3 




JSR 


BS.OACNVX 


AENDl 




JSR 


RSfFILlNM 


ACND 




MOV 


PSCNTCFn,-C 


INC 


(SP) 


JSR 


R5,BDCNV 


APASS 




RTS 


PC 



SEQ eits 



(SP) 



(NUMBER CONTAINS ADORESS OF CALL 



JCQMPUTE ASSEMBLY PC. 
iCOMVERT ASSEMBLY PC TO ASCII, 

iCONVFBT PC 10 ASCII. 

lLET'8 GET MODULE NAME. 

J STUFF AT AEMO. 

tGET PASS COUNT. 

jUP IT 1. 

JCONVEPT IT TO DECIMAL ASCII, 

I LET'S GET OUT. 



OAEO DEC/Xll SHORT MONITOP 
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iTYPDAT ROUTINE LOADS QUEUED DATA ONTO STACK, 



936 
















927 


004376 


011646 






TYPDATl 


MPV 


(SP),-(SP3 


928 


004400 


023727 


001102 


017572 




CMP 


TYPQ2.ITYPLIM 


939 


004406 


103403 








BLO 


It 


930 


094410 


012737 


017116 


001102 




MOV 


«TYPEQ,TYPQ2 


931 


004416 


017766 


174460 


000002 


l«t 


MOV 


«TyPQ2,2CSP) 


932 


004424 


062737 


000002 


001102 




ADD 


«2,TYP02 


933 


004432 


10'!337 


001007 






DFCB 


TYPQUE 


934 


004436 


000207 








RTS 


PC 



jSAVE EXIT ON STACK AGAIN. 

; BEACHED EKD nr QUEHf? 

jBP IF MOT, 

jYES, POINT TO STSPT Qf OHEUE. 

JOUEUE DATA TO STAC, 

SUPOATE QUEUE POI«'TfR, 

;DErRE«FNT COUNT, 

lEXIT, LESVr DAT* Jv STACK. 
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SEQ 01«7 



935 

936 

917 

938 

939 
049 
941 
942 
943 
944 
945 
946 
947 
948 
949 
950 
951 
952 
953 
954 
955 
956 
957 
958 
?5? 
960 
961 
962 
963 
964 
965 
966 
967 
968 
969 
970 
971 
972 
973 
974 



lENO CALL SERVICFD HERE, 



004440 

004442 
004446 

004454 
004460 
004462 
004464 
004466 
004470 
004474 
004500 
004502 
004506 
004512 
004514 
004520 
004522 
004530 
004532 
004536 
004542 
50s§46 
004550 
004556 
004560 
004564 
004566 
P04S72 
004574 
004576 
P04602 
004604 
004604 
004610 
004614 
004616 
004632 



OlUOi 
004737 
052761 

004537 
014127 
015541 
015615 
000000 
105037 
005761 
100410 
105037 
105737 
001403 
105737 
00H13 
032761 
001402 
105337 
105337 
105737 

523737 
003021 
105737 
001404 
105737 
001404 
000412 
105737 
001007 

000137 
105737 
001002 
000137 
000137 



004314 
030000 



006340 



001014 
000020 

001013 
001024 

Rji;22 

010000 

001022 
001015 
001024 

OOlOlS 

001322 

001015 

001013 



007476 
001015 



006142 
001702 



END5VCI fOV 

JSR 

000020 ENDSVAi BI8 

111 JSR 

CRCR 
AEHD 
MOOEND 

2ti CLRB 
ENDSVE: TST 
BMI 
CLRB 
TSTB 
BEO 
TSTB 
BEO 
BIT 
BEO 
DSC8 
DECS 
TSTB 



000030 Hi 



001025 ENDSVGl 



111 

ENDSVBt 
ENDSVn 

ENDSVDt 



CMPB 

8GT 

TSTB 

REO 

TSTB 

BEQ 

BR 

TSTB 

BUE 

JMP 

TSTB 
BNE 
JMP 
JMP 



CBIJ.BI 

PC.ENDCOM 

»BIT13iSTAT(Rn 

P5,TtPEN 



TTYBSy 

STATCPl) 

it 

BRAKE 

STOP 

II 

ALLBK 

EWDSVG 

»BIT12»8TST(Rn 

61 

MDXCNT 

MODCNT 

STOP 

EsDSV" 

WODCNT.BKCNT 

EVDSVD 

AILBK 

IS 

vnocNT 

EMDSVB 
ENDSVD 
BRAKE 
ENDSVD 

RUNRSS 
MODCNT 
E^•DSVD 
CTRICB 
0UET5T 



GET START tODR, 

00 COMMON sTurr. 

SET STOP BIT IN WOnULE STAT, 

TYPE 

2 CARRAGE RETURNS 
COMMON HEADER, 
END MESSAGE, 

CLEAR TTY BUSY INDICATOR, 

I BACKGROUND MODULE? 
BR IF NOT, 
RELEASE BRAKE, 

STOP MODULES rOR RELOCATION? 
NOf CONTINUE 

RUN ALL BKM005 BEFORE RELOCATION 7 
NO, CONTINUE 
EXTENDED I/O MOOT 
NO- BRANCH 

YES. DEC EXTENDED «0D COUNT 
DECR COUNT OF MODULES RUNNING, 
RELOCATE CODE? 

ALL I/O MODULES OFF? 

NO- BRANCH 

RUN ALL BKMOD'S BEFORE RELOCATING ? 

NO, CONTINUE 

ALL MODULES DONE ? 

YES, GO RELOCATE 

NO, GO RUN THE REST OF THE MODULES 

YES- 8KM0D OFF? 

NO- BRANCH CSTOP BKMOD CLEANLY) 

GO STARTUP AGAIN 

ANY MODULES RUNNING? 

YES- BRANCH 

COUNT 0, TERMINATE PUN MODE, 

GO BACK TO SERVICE QUEUES, 



OAED OEC/Xll SHORT MONITOR 
DXOABM,Pn Jl-APP-77 1?l4? 

975 
976 
977 
978 

979 004626 011101 

980 004630 016137 000062 

981 004636 010137 001374 

982 004642 005261 000026 
993 004646 032777 010000 

984 004654 001417 

985 004656 004737 004314 

986 004662 016146 000026 

987 004666 00*537 011744 

988 004672 015636 

9S9 06f6't4 00'4SSt 00B340 

990 004700 014127 

991 004702 015541 
<>92 004704 015627 

993 004706 014125 

994 004710 000000 
qo<( An47j3 000400 

996 004714 105037 001014 

997 004720 105737 001260 

998 004724 100663 

999 004726 005761 000020 

1000 004732 100415 

1001 004734 105037 001013 

1002 004740 032761 001000 

1003 004746 001725 

1004 004750 052761 020000 

1005 004756 105337 001025 

1006 004762 000137 004474 

1007 004766 000137 001362 
1008 

1009 
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iPASEND ROUTINE, TYPFS END OF PASS MESSAGE, 

(BACKGROUND MODULES ARE NOT ALLOWED TO MAKE MULTIPLF PASSES, 

(IN CHAIN MODE NO MODULE ALLOWED TO MAKE MULTIPLE PASSES, 



SEO Olflg 



PASENDJ MOV 
MOV 



174302 111 



MOV 

INC 
BIT 

PEQ 
JSR 

"ruT 

JSR 

BPSCNT 

JS'R" 

CRCP 

AEND 

APSEND 

CR 



BP 



000020 
000020 



PSENDAl 
211 



PSENDBi 



CLRP 

TSTB 

PMI 

TST. 

BMI 

CLRB 

BIT 

BEO 

BTS 

OECB 

JMP 

J«p 



tRl),Rl 

RSTRTCP1),CA0DP 

R1,CSTART 

PSCNTCPl) 

«BIT12,«8R 

PSEMDA 

PC.ENDCOM 

PSCNT(Rn,-(SP) 

RS,BDCNV 

ps/TYpev 



DcrMni 

TTYBSY 

CHN 

ENDSVE 

STATCRl) 

PSENDB 

BRAKE 

tBIT9, STATCRl) 

ENDSVD 

•8IT13, STATCRl) 

BKCNT 

ENDSVE 

COmOUE 



(LOAD Rl WITH MODULE ADDRESS 

(SAVE RESTART ADDRESS 

(SAVE MODULE ADDRESS 

(INCREMENT PASS COUNT. 

(ENDPAS PRINTOUT? 

(RP IF MOT. 

(DO COMMON STUFF. 

(NOW GET IT, 

iCONVEPT IT TO DECIMAL ASCII, 

(STUFF IT AT BPSCNT, 

( tipt 

(2 CARPAGE RETURNS 
(COMMON HEADER, 
(ENDPAS AND COUNT, 



"CC?N7tMUE 

(CLEAR TTY BUSY INDICATOR, 

(IN CHAIN MODE? 

(BP IF YES TO END MODULE EXECUTION 

(BACKGROUND MODULE? 
(PR IF NOT, 
(RELEASE BRAKE, 
(IS IT AN NBKMOD ? 
(WO, CONTINUE 
(YES, SET IT'S STOP BIT 
(ONE LESS BKMOD RUNNING 
(GO TAKE CAPE OF OTHER STUFF 
(GO TO COMMON QUE CALL, 



OAED DEC/Xll 8H0KT MOMITOK 
DXOKBM.Pll 31*APR-TT I2i42 



lOtO 








1011 








1013 


00477J 


105337 


001034 


1013 


004776 


100401 




1014 


OOSOOO 


000006 




1015 


005002 


113737 


001304 


101« 


oosoio 


005737 


001006 


1017 


005014 


001771 




1018 


005016 


012637 


001070 


1019 


005023 


012637 


001073 


1020 


005036 


000401 
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(TRACE TRAP CNTFPS HERE, 



SEQ niR9 



001034 



TRCIl 


DECB 


BKTIMP 




BHI 


TRCIC 


TRCIAl 


RTT 




TRCICl 


HOVB 


BKTIHE.BKTIMR 




TST 


lOOUE 




BEO 


THCIA 


TRCIBl 


MOV 


(SP)+,TPCPC 




WOV 


(SP)*iTRCPSW 




BR 


EXITl, 



I I/O OR TYPE OUe WAITINGT 
jHO. EXIT. 
{SAVE MOD'S PC, 
rSAVE HOD'S PSW, 



OAED DEC/Xll SHORT MONITOR 
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1031 








lEXIT 


CALL ENTEPS HERE. 


1033 














1033 


005030 


023636 




EX1T,1 


CMP 


(SP)+,(SP)+ 


1034 


005033 


010046 




EXITl, 


,1 MOV 


RO,-(SP) 


1035 


005034 


013700 


001122 




MOV 


wonJDP.Po 


1036 


005o40 


063700 


000032 




ADD 


tSVBOfPO 


1037 


005044 


013630 






MOV 


tSP)+,(BO)+ 


1038 


005046 


010130 






MOV 


Bt,(RO)+ 


1039 


005050 


010330 






MOV 


B2,(P0)+ 


1030 


005053 


010330 






MOV 


P3,fR0)+ 


1031 


005054 


010430 






MOV 


P4,(R0}+ 


1033 


005056 


010530 






MOV 


R5,(R0)+ 


1033 


005060 


010610 






MOV 


R6,(R0) 


1034 


005063 


013706 


001136 




MOV 


SPSAV,R6 


1035 


005066 


005046 




EXIT2, 


,i CLP 


-(8P) 


1036 


005070 


013746 


005076 




MOV 


»U,-(SP) 


1037 


005074 


000003 






PTI 




1038 


005076 


000137 


001702 


i$i 


jwp 


OUETST 



fSAVE PC IN STACK, 
t MODULE ADDP TO PO. 
(POINT TO MOD'S PEG SAVE AREA, 
(SAVE BO, CEROM STACK). 

(SAVE REMAIMING REGS, 



(SAVE MODULE STACK POTNTER, 
(RESTORE MONITOR STACK, 
(CLEAR PSW ON STACK 
(SET UP RETURN PC 
(CLEAR PSW AND, CONTINUE 



OAEO DGC/Xli SHOPT MONITOR 
DXOABM.Pll 21-APR-77 12Uj 



1039 








1040 








1041 


005102 


004737 


005350 


1042 


005106 


013700 


001122 


1043 


005112 


010046 




104* 


0D5114 


004737 


O0S3S0 


104S 


005120 


016046 


000060 


1046 


005124 


004737 


005350 


1047 


005130 


016046 


000056 


1048 


005134 


004737 


005350 


1049 


005140 


005726 




1050 


005142 


013706 


001136 


lOSl 


005146 


000747 
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JTYPQ4. POUTINE, LOADS MSGDI INrORMATION INTO TYPEQ 



I QUEUE PC+2 OF CALti 

jLOAD MODULE ADDRESS IN RO 

jAMD SAVE IN QUEUE 

I QUEUE DATA ERROR COUNT 

» QUEUE SIZE or TRANSFER 

» REMOVE PS FROM STACK 
iGET MONITOR STACK POINTER 
SEXIT 



SEQ 0191 



TYP04.J JSR 


PCIiDIYPQ 


MOV 


MODADR.PO 


MOV 


RO,-CSP) 


JSR 


PCLDTYPQ 


MOV 


AWAS(RO),»CSP) 


JSP 


PCLDTYPQ 


HOV 


ASBCROJf-CSP) 


JSR 


PCLDTYPQ 


pnpsp 




MOV 


SPSAV,R6 


BR 


EXIT2, 



OAEP DEC/Xll SHDPT MONITOR 
DXOaBM. pu 2t-APP.77 1?|42 



1052 








1053 








1054 


005150 


011646 




1055 


005152 


004737 


005350 


1056 


005156 


013700 


001122 


1057 


005162 


010046 




1058 


005164 


004737 


005350 


1059 


005170 


017616 


000000 


1060 


005174 


004737 


005350 


1061 


005200 


005726 




1062 


005202 


062700 


0O0O62 


1063 


005206 


012701 


000005 


1064 


005212 


000401 




t065 


005214 


005010 




1066 


005216 


014046 




1067 


005220 


004737 


005350 


106S 


005224 


005301 




1069 


005226 


001372 




1070 


005230 


013700 


001122 


1071 


005234 


010660 


000046 


1072 


005240 


01 3706 


00U36 


1073 


005244 


000137 


005066 
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|TYPQ3. ROUTINE QUEUES INFORMATION FOR DERPX CALLS 



S QUEUE PC+2 OF CALL 

jLOAD MODULE ADDRESS IN RO 

tANO SAVE I«i QUEUE 



SEO 0192 



TYPQ3. 


1 MOV 


(SP),-cspi 




JSR 


PCLDTYPQ 




MOV 


M00ADR,R0 




MOV 


RO,-(SP) 




JSR 


PCLDTYPQ 




MOV 


9tSP),CSP) 




JSP 


PCLDTYPQ 




POPSP 






ADD 


ltMAS+2rR0 




MOV 


• 5, PI 




BR 


2S 


Itl 


CLB 


(BO) 


2$l 


MOV 


-(RO),-(SP) 




JSR 


pr.LDTYPO 




DFC 


Rl 




BNE 


18 




MOV 


MODADR.PO 




MOV 


R6,5VR6(R0) 




MOV 


SPS»V,R6 




JMP 


EXIT2. 



fQUEUE VIRTUAL ADDRESS OF CHECKDATA CALL 
(GET ADDRESS OF IKFORMATION 



iCLEAR DATA (EXCEPT LAST) 

»GET DATA 
JQUEUE DATA 
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1074 








1075 








1076 


005250 


011646 




1077 


005252 


004737 


005350 


1078 


005256 


010046 




1079 


005260 


017600 


000002 


loeo 


005264 


062700 


OQOOSO 


1081 


005270 


012746 


000005 


108! 


005274 


012046 




1083 


005276 


000402 




1084 


005300 


011046 




1085 


005302 


005020 




1086 


005304 


004737 


005350 


1087 


005310 


005316 




1088 


005312 


001372 




1089 


005314 


005726 




1090 


005316 


012600 




1091 


005320 


000137 


005030 
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|TyP02. ROUTINE SERVICES ERROR, DATA ERROR, AND ERRN CAllS, 



SEO 0193 



Typ02,i 


MOV 


(SP),-tSP5 




JSR 


PCLDTYPO 




MOV 


R0,-(8P) 




MOV 


•2(SP),R0 


TXP8XI 


ADD 


»CSRA,RO 




MOV 


«5,-(SP) 




MOV 


tR0)+,-(SP3 




BR 


21 


Hi 


MOV 


CR0),-tSP) 




CtR 


(R0) + 


2»l 


JSR 


PCLDTYPO 




DEC 


CSP) 




BNE 


It 




POPSP 






MOV 


{SP)+»PO 




JHP 


EXIT. 



ISAVE PC+2 OF CAt,l »G»IN, 
lOUEUE UP PC+2 or CALL, 

(SAVE RO. 
jGET MODULE ADDR, 



iRESTORs; PO. 
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1092 
1093 

1094 005324 004737 005350 

1095 005330 005726 

1096 005312 000137 ft05032 



jTYPQ, PDUTIHE. SF.pVlCES FN^, EVPPAS, H^D "SG" CALLS. 

TYPQ.I JSR PCLDTYPC jQUEUT UP C»LI . 
POPSP 
JWP PXITt. 



qAED DEC/XU SHORT MOMIiap 
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SGQ 019S 



1097 

1098 

1099 005J36 

lino 005342 

1101 005344 



004737 005350 

005726 

000137 005066 



iTTPOl. POUTINE, SERVICES MSO CALL. 

PCLDTyPO lOUEUE UP CALL. 
EXIT2. 



TyPQt.l JSR 

POPSP 
JMP 
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1102 










iROUTINE TO LOAD TYPE QUEUE. El 


1103 


005350 


005046 






LDTYPOJ 


CLR 


-(SP) 


U04 


005352 


012746 


005360 






MOV 


«3Sf-(SP) 


1105 


005356 


000002 








RTI 




no* 


005360 


105737 


001007 




3SJ 


TSTB 


TYPQUE 


1107 


005364 


001414 








BEQ 


1« 


1108 


005366 


023737 


001100 


001102 




CHP 


TYpai,TYPQ2 


1109 


005374 


001010 








BNE 


IS 


1110 


005376 


012737 


017116 


oniiOO 




MOV 


«TYPEQ,TYPQ1 


tin 


005404 


104406 


014157 






WSGS, 


-aOVPFL lYES, 1 


1112 


005410 


104406 


014620 






MSG$i 


,HLT t'HALT 


1113 


005414 


000000 








HALT 




1114 


005416 


023727 


001100 


017572 


l«t 


CB 


TYPQl,iTYPLIM 


1115 


005424 


001003 








nm 


2$ 


1116 


005426 


012737 


017116 


001100 




MOV 


#TYPEQ,TYPQl 


1117 


005434 


0)6677 


000002 


173436 


2Si 


MOV 


2(SP)»»TYPQ1 


1118 


005442 


105237 


001007 






INC8 


TYPQUE 


1119 


005446 


062737 


000002 


001100 




ADD 


t2,TYPai 


1120 


005454 


012616 








MOV 


tSP)t.(SP) 


1121 


005456 


000207 








RTS 


PC 



NTERED VIA JSR PC. 

jCLEAR PSW OS STACK 

S SETUP RETURN PC 

tCLEAR PSV &«D COMTTSUE 

jREQUEST COUNT 0? 

JBR IF YES. 

JNO, TYPQl AWD TYPaz SAME? 

I BR IF WOT. 

J RESET THP: TYPE QUEUE 
QUEUE OFLO. CRASH SYSTEM 



jRFACHED HIGH LIMIT? 

jBR IF WOT. 

jBESET TYPOl. 

jSTQRE ARGUMENT IN QUEUE 

SUPDATE REQUEST COUNTS, 

TUPOATE TYPOl . 



JEXIT. 
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see 0197 













1 ROUTING TO LOAD BREAKI CALL 
























003460 


113766 


177777 


000003 


LDBRK.i 


1 HOVB 


•-lr3t8P) 


•INDICATE BREAK* CALL 




00S466 


000402 








BR 


LDIOQ 
































IROOTINE TO LOAD QUE! CALL. 
























005470 


005066 


000003 




QUE.i 


CLR 


2(8P) 


(INDICATE QUE CALL. 






























iLDIOe 


ROUTINE. MUSI NOT DROP 


BELOW LEVEL OF INTERRUPTING 01 






















005474 


013746 


000340 




LDIOOl 


WOV 


»PRTY7i-(8P) 


,PUT NEW PSW ON STACK 




OOS500 


013746 


005506 






«0V 


•t$,-(SP) 


J SETUP RETURN PC 




005504 


000003 








RTl 




(LOAD NEW PSW AND CONTINUE 




005506 


000403 






ttt 


BR 


. + 10 






005510 


113766 


000001 


OOOO02 


PIPO.l 


HOVB 


*1.2(SP) 






005516 


105737 


001006 






T8IB 


lOQUE 


jREQUEST COUNT 01 




005533 


001414 








BEQ 


11 


iBP IF YES. 




005534 


033737 


001074 


001076 




CHP 


IOQI1IOO2 


tlOQt AND I0Q3 SAME? 




005533 


001010 








BNE 


1* 


IBR IF NOT. 




005534 


012737 


016606 


001074 




MOV 


*lbQ»I00t 


IRE8ET lOOl 




005543 


104406 


014157 






MSGIi 


rOOVRFL (QUE 


DFLO. CRASH SYSTEM 




005546 


104406 


014630 






M8G$i 


iHLT J 'HALT* 




005553 


000000 








HALT 








005554 


033737 


001074 


017J16 


lit 


CHP 


I0Q1,«100LIM 


jREACHED HIGH LIMIT? 




005563 


001003 








BNE 


2* 


jBR IF NOT, 




005564 


013737 


016606 


001074 




MOV 


•I00>I0Q1 


(RESET lOQl. 




005573 


013677 


173376 




3lt 


MOV 


(SP) + ,(11001 


jSTORE PC+2 OF PENDING CALL 




00S576 


105237 


001006 






INCB 


lOOUE 


JUPOATE REQUEST COUNTS, 




005603 


063737 


000003 


001074 




ADD 


*3,I0Q1 


» UPDATE lOQl, 




005610 


005716 








TST 


CSP) 


lOUE CALL7 




005613 


001003 








BXE 


3« 


>N0- BRANCH 




005614 


005726 








TST 


(SP) + 


»YES, POP STACK 




005616 


000137 


005066 






JMP 


EXIT2. 


lEXIT 




005633 


136637 


000001 


177777 


311 


CMPB 


1(SP)»»-1 


(BREAK CALL? 




005630 


001003 








BNE 


4« 


|NC« BPANCH 




005632 


005736 








TST 


tSP) + 


(YES- POP STACK 




005634 


000137 


005033 






JWP 


EXTTl. 






005640 


005736 






4tl 


TST 


CSP) + 


IPIRQ- EXIT VIA RTI 




005643 


000003 








BTI 
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1162 










iKEYBOAPP INTFRPUPT SERVICE 






1163 




















1164 


005644 


OOS077 


173276 




KBSRVCl 


CLR 


»TKS 


:CLEAR INTERRUPT ENJBLE. 




1165 


005650 


017746 


173374 






MOV 


9TK8,-CSP) 


(GET CHAR. 




1166 


005654 


043716 


000200 






BIC 


•2o0f(SP) 


(REMOVE EXTRA BITS. 




1167 


005660 


132716 


000003 






CMPB 


•3,(SP1 


(IS IT CTPL C? 




1168 


005664 


001524 








BEQ 


CTRLCA 


(BR IF YES. 




1169 


005666 


005736 








POPSP 




(REMOVE CHAR FROM STACK. 




1170 


005670 


000004 


005676 


000000 




PIHQ8, 


1*»0 


(Q DEVICE SERVICE. 




1J71 




















1172 










(KEYBOARD SERVICE. 






1173 




















1174 


005676 


023737 


001036 


016346 


l«i 


CMP 


KBPTR,»KBUF+KBUFL (BUFFER EXCEEDED? 




1175 


005704 


001511 








BEQ 


13* 


jBP IF YES. 




1176 


005706 


017746 


173336 






NOV 


BTK8,-(SP) 


(GET CHAR. 




J 177 


005712 


043716 


000200 






BIC 


l300t(SP) 


(CLEAR PARITY BIT. 




1178 


005716 


121627 


000177 






CMPB 


tSP)»«177 


(RU80UT? 




1179 


005732 


001443 








BEO 


ft 


(BR IF YES. 




1180 


005734 


121627 


000040 






CMPB 


(SP),»40 


(SPACE? (IG^'ORE LEAPING ONES). 




1181 


005730 


001*60 








BEQ 


8* 


(BR IF YES. 




1183 


005732 


121627 


000015 






CMPB 


CSP), #15 


(CR? CTIHE TO QUIT?). 




1183 


005736 


001462 








BEO 


9S 


(BR IF YES. 




1184 


005740 


131627 


000013 






CMPB 


CSP), #12 


(LF? (TREAT LIKE CR). 




1185 


005744 


001457 








BEQ 


9i 


(BR IF YES. 




1186 


005746 


121627 


O0O06Q 






CMPB 


csp),«eo 


(CHAR LESS THAN 607 




1187 


005752 


103425 








BLO 


10* 


(BR IF YES. IGNORE IT. 




1188 


005754 


131637 


000141 






CMPB 


CSP),ti41 


(CHAP LESS THAN LOWER CASE A? 




1189 


005760 


103405 








BLO 


3* 


(BR IF YES. 




1190 


005762 


131627 


00017S 






CMPB 


(SP),»173 


(CHAR HIGHER THAN LOWER CASE Z? 




1191 


005766 


101017 








BHI 


10* 


(BR IF YES. 




1193 


005770 


162716 


000040 






SUB 


«40»<SP) 


(LOWER CASE CHAR. HAKE IT UPPER 


CASE 


1193 


005774 


111677 


173036 




3«l 


MOVB 


(SP),PKBPTR 


(STORE CHAR. 




1194 


006000 


005337 


001036 






INC 


KBPTR 


(UPDATE BUFFER POINTER, 




1195 


006004 


113637 


001340 




3*1 


MOVB 


CSP)+,TTYByT 


(CHAR TO ECHO BUFFER. 




1196 


006010 


104406 


001340 






MSG*,TTYBYT 


(ECHO THE CHARACTER. 




1197 


006014 


053777 


000100 


173124 


4*i 


BIS 


«IE,9TKS 


(REENABLE KY6D INTERRUPTS. 




1198 


006032 


000137 


001703 






JMP 


QUETST 






1199 


006036 


005736 






loti 


POPSP 








1300 


006030 


000771 








BR 


4* 






1201 




















1303 










(SERVICE DELETE/HUBQUT CODE. 






1303 




















1304 


006033 


033737 


016306 


001036 


5*1 


CMP 


»KBUF, KBPTR 


(BUFFER EMPTY? 




1305 


006040 


001405 








BEQ 


6* 


(BR IF YES. 




1306 


006043 


005337 


001036 






DEC 


KBPTR 


(POINT TO PREVIOUS CHAR, 




1307 


006046 


117716 


173764 






MOVB 


8KBPTR,(SP) 


(GET PREVIOUS CHAR. 




1308 


006053 


000754 








BR 


3* 


(GO ECHO IT. 




1309 


006054 


005736 






6*1 


POPSP 








1210 


006056 


104406 


014155 






MSG*,ACRLF 


(OUTPUT CRLF. 




1211 


006062 


012737 


016306 


001036 


7(( 


MOV 


IKBUF, KBPTR 


(RESET KBUF POINTER. 




1312 


00«07Q 


000751 








BR 


4* 






1213 




















1214 










(SERVICE SPACE 


, 






1215 




















1216 


0O6O73 


022737 


016306 


001036 


8(i 


CMP 


IKBUF, KBPTR 


(LEADING SPACE? 




1217 


006100 


001741 








BEO 


3t 


(BR IF YES (IGNORE IT), 





Que occ/xii aHoitT mqnitod 

DX0ABM.P11 ai««PR>7T 13l43 



taiS 006i03 000734 





















006104 


113677 


173736 




OOStlO 


013737 


016306 




006116 


104406 


01415! 




006133 


104401 


007330 




























006130 


104406 


014416 




006134 


000752 
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BR 31 iSl 

J SERVICE CR ANC hf . 



SCO 01«9 



9H MOVB (SP)'t'i9KBPTR 

001036 MOV »KBUF,KBPTR 

MSG«,ACRLF 
000000 OUE$(OECODE,0 

I SERVICE KBUF QVCPFLOM, 



13(1 



MSGIiKBOrLO 
BR 7« 



SSTORE CH&R, 

jPOINT TO START OF KBUF, 

jOUTPUT CRLF 

jQUE TO SERVICE COMMAND, 



tTYPE KBUF OFLO. 
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1231 








1J33 








1233 








1234 








1235 








1236 








1237 


006136 


012706 


016546 


1238 


006142 


0O4'J37 


006230 


1239 


006146 


005037 


001224 


1240 


006152 


004737 


014060 


1241 


006156 


105737 


001257 


12*2 


n06163 


001003 




1243 


006164 


000137 


007374 


!?♦♦ 


ftW^fO 


toton 


001257 


1745 


006174 


105737 


001360 


1346 


00*200 


100411 




1247 








1248 


006203 


052777 


000100 


12«9 


006210 


104406 


014136 


1250 


006214 


104406 


014125 


1251 


006220 


004737 


010274 


1252 


006224 


000137 


012722 


1253 
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iSERVICE CTRL C. ENDS RUN MODE ALSO. 

(DROPS TO BANKS AND 1 BEFORE RETURNING (IF KTl 1 lU USE) 

I STACK POINTER SHOULD BE SETUP AHEAD OF CALL TO CTRLX TO PRESERVE 

iNEEDEP INFORMATION PRIOR TO REMAPPINR TO 0. OR CAUSE REWAPPING TO 

»CURREMT AREA AFTER 

(REINITIALIZE STACK POINTER 
jCLEAR QUEUES, TYPE *C 
)GET PROGRAM BACK TO BANK 

(IN RUN MODE? 
*BR TF* YCS 

(BACK TO KYBD ROUTINE. 
rCt/FtW ROH "OOe I«l!>TC»TOP 
jTN CHAIN HOOF? 

»BR IF YES. BYPASS SUMMARY AND RETURN TO 
SCHAIN MONITOR 
172736 BIS tlE.RTKS (REFNABLE KEYBOARD INTERRUPTS 

(TYPE BUN END SUMMARY TITLE, 
iCARRIAGE RETURN 
(TYPE RUN SUMMARY, 
;EXIT, OR RETURN TO KYBD RTN, 



SEO 0200 



CTRLCAt 


MOV 




«SPBQT,SP 


CTRLCBt 


J5B 




PC.CTRLX 




CLH 




OFFSTD 




JSR 




PC.MVCODE 




TSTB 




RMODE 




BNE 




11 




JMP 




C0MC03 


!Sf 


etPB 




Rt^OE 




TSTB 




CHN 




BKI 




CTRLCD 




BIS 




•lE.RTKS 




MSG6, 


iSUMAPY 


3Sl 


MSGt) 


.CB 






JSP 




PCDIRA 


CTPLCDi 


JMP 




CHNOUT 
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SEO 0201 





006230 


012746 


000340 




006234 


012746 


006242 




006240 


000002 






006242 


012737 


000144 












0062S0 


105737 


001257 




006254 


001003 






006256 


012737 


000010 




006264 


004737 


012272 




006270 


005337 


001374 




006274 


001373 




1265 


006276 


011604 




1266 


006300 


000005 




1267 


006302 


010416 




1268 


006304 


004737 


012272 


1269 


006310 


005046 




1270 


006312 


012746 


006320 


1271 


006316 


000002 




1272 


006320 


105237 


001013 


1273 


006324 


013737 


001266 


1274 


006332 


104406 


014153 


1275 


006336 


000207 





001374 4(1 



001374 



3tt 

5Si 

001264 



MOV 
MOV 
RTI 

MOV 

TSTB 

BNE 

MOV 

JSP 

DEC 

BNE 

MOV 

RESET 

MOV 

JSB 

CLR 

MOV 

RTI 

INCB 

MOV 



#PRTV7,«tSP) 
I4«>«(SP) 

»t00,«CSTART 

PMODE 
It 

•lOrCSTART 

PCrCLRQUS 

CSTABT 

1$ 

CSP),P4 

P4,CSP) 
PCCLRQUS 
-(SP) 
«5I,-(SP) 



MSGS.CTRLC 
RTS PC 



BRAKE 
ROTNUM.ROTCNT 



(SETUP VEW P5W ON STACK 

I PUT RETURN PC ON STACK 

jLOAD NEW PSW AND CONTINUE 

»CLEAR QUEUES AND DELAY TOO, 

JIF NOT IN RMODE, SHORTEN WAIT 



(CLEAR QUEUES, 

iDONET 

IBR IF NOT, 

J SAVE RETURN PC 

(RESTORE RETURN PC IN CURRENT BANK 

(CLEAR QUEUES IN BANK 

(RETYPE NEW PSW OH STACK 

(PUT RETURN PC ON STACK 

(LOAD NEW PSW AND CONTINUE 

(SET BRAKE TO PREVENT BACKGROUND MODULE FROM BEING START 

(RESET THE ROTATION COUNTER 

(OUTPUT 'C 

(EXIT. 
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ftC 02C7 



1276 
1277 






1278 






1279 


006340 


005726 


1280 


006343 


012546 


12R1 


006344 


001403 


1282 


006346 


004737 


1283 


006352 


000773 


1284 


006354 


000205 



(SUBROUTINE TO TYPE MULTIPLE ASCII STRINGS. NOTE THnT THE P«EVinUS 
(VALUE or R5 IS NOT SAVED. 



006356 



TYPEKi 


TST 


(SP) + 


(REMOVE OLD P5 FROM STACK 


TYPEK 


MDV 


tJ)+r-tSP) 


(GET ASCII ADOPTSS, 




BEO 


It 


(BR IF n TERMIMTOR. 




JSR 


PC, TYPE 


(TYPE IT. 




BR 


TYPE! 


(GET MORE. 


1»» 


RTS 


R5 


(RETURN. 
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1285 








!2«* 








1287 








1288 








1289 








1290 


006356 


012737 


006426 


1291 


006364 


012637 


001106 


1292 


006370 


012637 


001104 


1293 


006314 


010137 


001124 


1294 


006400 


012701 


001126 


1295 


006404 


010221 




1296 


006406 


010321 




1297 


006410 


010421 




1298 


006412 


010521 




1299 


006414 


012777 


000100 


1300 








1301 








1302 








1303 








1304 








1305 








1306 








1307 








1308 








1309 








1310 








13U 








1312 








1313 








1314 








1315 








1316 








1317 








1318 








1319 








1320 


006422 


000137 


001702 


1321 


006426 


117746 


172452 


1322 


006432 


001015 




1323 


006434 


005726 




1324 


006436 


012701 


001126 


1325 


006442 


012102 




1326 


006444 


012103 




1327 


006446 


012104 




1328 


006450 


012105 




1329 


006452 


013701 


001124 


1330 


006456 


005077 


172470 


1331 


006462 


000177 


172420 


1332 








1333 








1334 


006466 


062737 


000001 


1335 


006474 


122716 


000045 


1336 


006500 


001037 




1337 


006502 


112716 


000015 


1338 


006506 


012737 


006516 


1339 


006514 


000431 




1340 


006516 


112746 


000012 
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jTYPE SUBROUTINE, 

•TYPES ASCI? STRIVE 

JNOTE THAT IF RHODE IS SET BUT MODULES AREN'T YET BEING STARTED, 

I MUST BE SET TO PREVENT STARTNG MODULES WHILE TYPING 



001410 TYPEi 



172530 



MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 



»TTSRVi,TTYLNK 

CSP3+iTYPRET 

tSP)+iTYPADR 

Sl.TYPRi 

tTYPRJ.Rl 

R2,(Rn'*' 

R3,CRn* 

R4,CBn + 

R5,CR1)+ 

«100,9TPS 



(SAVE RETURN ADDRESS 
:SAVE MESSAGE ADDRESS 
iSAVE REGISTERS 1>S 





JMP 


QUETST 




TTSRVlj 


M0V8 


9TYPADR,-(SP) 


tGET CHAR. 




BWE 


TYPES 


jBR IF NOT TERMINATOR, 




TST 


(SP) + 






MOV 


ITYPR2,R1 


jRESTORE REGISTERS t-5 




MOV 


(P1)+#P2 






MOV 


CRl)*jR3 






MOV 


tRn + »R4 






MOV 


(R1)+»R5 






MOV 


TYPRl.Rl 






CLR 


9TPS 


iCLEAR IE 




JMP 


STyPRET 




TYPEBl 


ADD 


•i.TYPADR 






CHPB 


i45.tSP) 


lis IT %7 




PNE 


TYPEL 


|N0- BRANCH 


TYPECj 


MOVB 


•15r(SP) 


jOUTPUT CP. 




MOV 


tl8,TTYLNK 






BR 


TYPEL 




111 


MOVB 


il2,-(3P3 


1 OUTPUT LF, 
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006522 


012737 


006532 




006530 


000423 






006532 


113737 


001254 




006540 


001002 






006542 


105237 


001020 




006546 


113746 


001255 




006552 


012737 


006562 




006560 


000407 






006562 


105337 


001020 




006566 


001367 






00*570 


012737 


006426 




006576 


000711 






006600 


012677 


1723S0 




006604 


012737 


010000 


1358 


006612 


000137 


001702 



001020 





MOV 


»2S,TTYLNK 




BR 


TYPEL 


2St 


MOVB 


FILCNT,FILCTR 




BNE 


TYPEE 




INCB 


FILCTR 


TYPEEj 


MOVB 


FILLER, -CSPl 


TYPEOl 


MOV 


I3S,TTYLNK 




BR 


TYPEL 


3St 


DFCB 


FILCTR 




BNE 


TYPEE 




MOV 


•TTSBVi,TTYLNK 




BP 


TTSPVl 


TYPELS 


MOV 


(SP)+,»TPB 




MOV 


110000, TYPCTP 




JMP 


QHETST 



IGET FILL COUNT. 
iBR IF NOT 0. 
lOOPS, MAKE IT A 

(OUTPUT FILLER, 



IDECREMENT FILL COUNTER, 
iBR IF NOT 0. 
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SEO 02ns 











IROUTINB TO SERVICE CKDAT» CALL 


CDATAI) 


00«616 


113737 


177777 001315 


DATCK.t 


MOVB 


l-l.DATFLG 


SET FLAG FOR DATACK CALL 




606t34 


000403 






BR 


CKCONT 


CONTINUE 




60S«36 


105037 


001315 


CDATA.I 


CLRB 


DATrtG 


SET FLAG FOR CKDATA CALL 


006633 


005037 


001143 


CKCONTi 


CtR 


COFLG 






006636 


005037 


001114 




CLR 


DERRCT 


INITIALIZE DATA ERROR COUNT 




006643 


004437 


013344 




J8R 


R4.SAV04 


TEMPORARILY SAVE REGS 




006646 


016604 


000013 




MOV 


12(SP),R4 


GET PC+2 OF CALL 




006653 


010437 


001400 


CDATAli 


HOV 


R4,C0ERP1 


SETUP PC OF CALL 




006656 


163737 


000003 001400 




SUB 


t2,CDERRl 






006664 


013401 






MOV 


CR4)+fRl 


GET BEGIN ADDRESS OF MODULE 




006666 


013403 






MOV 


CR4)+.R3 


GET TABLE ADDRESS CF RBUFPA FRO 




006670 


010361 


000053 




MOV 


R3,SBADR(Rn 


SAVE IT 




006674 


063701 


000033 




ADD 


»8VB0»R1 


SAVE MODULE'S REGISTERS 




OO67OO 


013631 






HOV 


tSP) + ,(Rn + 






006703 


013631 






MOV 


(sp)+.(Rn+ 






006704 


013631 






MOV 


(sp)+,cRn+ 






006706 


013631 






MOV 


(SP]+,(Rn+ 






006710 


013631 






MOV 


(sp)+,(Rn+ 






006713 


010511 






MOV 


RS.CRU 






006714 


033636 






CMP 


CSP)+#(SP)+ 






006716 


016401 


177774 




MOV 


-4(R4),R1 


RESTORE MODULE AODR 




006733 


013300 






MOV 


(3)+.R0 


GET READ BUFFER PA 




006734 


005733 






TST 


t35 + 


SKIP EA BITS 




006736 


013305 






MOV 


(3)+>R5 


BUFFER WORD COUNT 




006730 


016103 


000074 




MOV 


WBurPA(Rn,R3 


GET WRITE BUFFER PA 




006734 


005003 






CLR 


R3 


CLEAR OUT REG, 3 




006736 


005737 


001143 




TST 


CDFLG 


ENTERED FROM DATA ERROR RETURN? 




006743 


001413 






BEQ 


30t 


NO- BRANCH 




006744 


013603 






MOV 


(SP)+,R3 


VES- GET COUNT 




006746 


005303 






INC 


R3 






006750 


006303 






ASL 


R3 


CREATE OFFSET 




OO6753 


060300 






ADD 


R3,R0 


GET ADDRESS OF CURRENT REAP BUF 




006754 


103003 






BCC 


. + 10 






006756 


060303 






ADD 


R3,R3 


GET ADDRESS OF CURBFNT WRITE BU 




006760 


103003 






BCC 


. + 10 






006763 


006203 






ASR 


R3 


RESTORE COUNT 




006764 


160305 






SUB 


R3,B5 


CALCULATE WORDS LEFT 




006766 


013637 


001114 




HOV 


(SP]+>DGRRCT 


RESTORE DATA ERROR COUNT 




006773 






3011 










006773 


031013 




lit 


CMP 


<)R0«9R2 


DATA OKT 




006774 


001437 






BEO 


3t 


YES, BRANCH 




006776 


005237 


001114 




INC 


DERPCT 


NO, COUNT DATA ERROP 




007003 


033737 


001114 000003 




CMP 


DERRCT, #3 


MORE THAN 3 GRRQRST 




007010 


003404 






BLE 


2« 


NO- REPORT EOROR 




007013 


033777 


003000 173136 




BIT 


»BII10,»SR 


YES- REPORT ALL? 




007030 


001415 






BEQ 


3« 


NO- BRANCH 




007033 


011061 


000060 


211 


MOV 


RROfAHASCPn 


SAVE ACTUAL DATA 




007036 


011361 


000056 




HOV 


»R2,ASB(R1) 


SAVE EXPECTED DATA 




007033 


010361 


000054 




MOV 


RS.WASADRCRl) 


SAVE COUNT 




007036 


013746 


001114 




MOV 


DERRCT, -CSP) 


SAVE DATA ERROR COUNT 




007042 


010346 






MOV 


R3,-(SP) 


SAVE WORD COUNT ON STACK 




007044 


013746 


001400 




HOV 


CDERBl,-tSP) 


SAVE VA OF CKDATA CALL 




007050 


000137 


001376 




JHP 


COEPR 


GO TO ERROP CALL 
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007054 


005203 




311 


INC 


P3 




007056 


005720 






TST 


tRO) + 




007060 


005732 






TST 


CR2) + 




007062 


005305 




Stt 


DEC 


RS 




007064 


001342 






BNE 


It 




007066 


005737 


001114 




TST 


DERPCT 




007073 


001003 






BNE 


61 




007074 


013437 


001054 




MOV 


(R4)+,DSTArP 




007100 


000423 






BR 


7« 




007103 


005261 


000030 


6ii 


INC 


ERCNT(Rn 


















60IIO6 


001002 






BNE 


.+6 




007110 


005161 


000030 




COM 


ERCNTCRl) 




007114 


013761 


001114 000060 


MOV 


DERRCT, AWAStRl) 




007133 


010361 


000056 




MOV 


R3,ASB(Rn 




007126 


010446 






MOV 


R4,-CSP3 




007130 


010661 


000046 




MOV 


SP,SVR6tBl) 




007134 


104422 






MSGDt 






007136 


013604 






MOV 


CSP)+,R4 




007140 


0)3701 


001122 




MOV 


M0DADR,R1 




007144 


013437 


001054 




HOV 


CB4)+,DSTADR 




007150 


105737 


001315 


7»t 


TSTB 


DATFLG 




007154 


100003 






BPL 


et 




007156 


013734 


001114 




HOV 


DERPCT, 8(R4)+ 




007163 


116137 


000030 001066 Stt 


HOVB 


STAItRl),RSTAT 




007170 


010100 






MOV 


R1,R0 




007172 


063700 


000046 




ADD 


*SVR6,Rfl 




007176 


000137 


003570 




JMP 


lOQSVD 


















007203 


005746 




CORETt 


TST 


-(SP) 




007304 


004437 


013344 




JSR 


R4,SAV04 




007310 


016604 


000014 




MOV 


14(SP),R4 




007314 


063704 


000003 




ADD 


• 2,R4 




007330 


005337 


001143 




INC 


CDFLG 




007324 


000137 


006652 




JMP 


COATAl 



(COUNT WORDS CHECKED 



rANY D6TA ERRORS? 

(YES, BRANCH 

jGET THE RETURN ADDRESS 

jGO TO COMMON RETURN CODE 

jDATA ERRORS OCCURRED- UP MODULE ERROR 

» COUNT BY 1 

(SET TO -1 IF 

(STORE INFORMATION IN MODULE 

iSTOPG SZZ£ I'V l^SB 

(SAVE POINTER TO ERROR RETURN ADDRESS 

(SAVE STACK POINTEP 

(REPORT TOT»LS, HALT MODULE IF NEEDED 

(GET ERROR RETURN POINTER 

(GET MODULE START ADDRESS 

(GET THE RETURN ADDRESS 

(IS THIS A DATACK CALL 7 

(NO, CONTINUE 

(YES, LOAD tIK NUMBICR OF DATA ERRORS 

(SET UP FOR MODULE RETURN 



(PUSH STACK 

(GET VA OF CKDATA CSLL 
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iCOMWAND DECODER. CHECKS SYNTAX AGAINST COMMAND TSBtE. 

•ALL rOMWANOS ARE CHECKED AGAINST THE QUOTES, NO ABBREVIATIONS ALLOWED 

) SPECIAL FLAG SETT 

»BR IF NOT, 

lYES. CLEAR IT. 

»G0 VIA 5RETRN. 

J IN BUN MODE? 

tUQ, CONTINUE 

» 'INVALID CMD. ONLY CNTL C 15 OK* 

jCONTINUE 

iSAVE REGS 0-4. 

;P01STEP TO PO. 

jDEVICC DECODING COMES HERE 

iSAVE STRING POINTER 

jHATCH THE CHARACTER? 

I YEP, SEE IF THE REST HATCH 

jNO, GO CHECK AGAINST NEXT 

jeUT FIND WHERE NEXT ENTRY IS 

lOISPLACEMENT TO NEXT ENTRY 

jNO SUCH THING. 

I POINT TO NEXT ENTRY 

iPOINT TO BEGINNING OF INPUT 

jKEEP LOOKING 

IliAST CHR IN ENTRKT 

|N0, CHECK THE OTHER CHB'S 

IRCSET SP AND Ri 

(GET DISPATCH ADDRESS 

»R1 POINTS TO NEXT ENTRY 

I SET MODULE ADDR IN CSTART TO 0, 
jSAVE CURRENT BUFFER POINTER, 
> RESTORE REGS 0-4. 
•GO TO COMMON QUE CALL. 



1452 














1453 


007230 


105737 


001010 


DECODE! 


TSTB 


SPCFLG 


1454 


007234 


001404 






BEO 


11 


1455 


007236 


005037 


001010 




CLR 


SPCFLG 


1456 


007242 


000177 


171610 




JMP 


9SRETRN 


1457 


007246 


105737 


001257 


Iti 


TSTB 


RHODE 


1458 


007252 


001403 






BGQ 


2$ 


145S 


007254 


104406 


014304 




HSGt, 


INVCOl 


1460 


007260 


000441 






BR 


COHCON 


1461 


007262 


004437 


012244 


2*i 


JSR 


R4,SAV04 


1463 


007566 


013700 


001036 




MOV 


KBPTP.PO 


1463 


007272 


012701 


015232 


GTOKJ 


MOV 


iCOMTAB.Rl 


1464 


007276 


010046 




GTOKXt 


>>0V 


PO,-tSP) 


1465 


OO7J00 


122021 




GTOKll 


CMPH 


tRO)+.tRl)+ 


1466 


007302 


001407 






BEQ 


GT0K2 


J467 


007304 


105721 






TSTB 


tRl) + 


1468 


007306 


001376 






BNE 


.-2 


1469 


007310 


111102 






Move 


CR1)»R2 


1470 


007312 


001422 






BEQ 


COMCOl 


1471 


007314 


060201 




MOPE! 


ADD 


P2fPl 


J472 


007316 


011600 






HOV 


(5P5fRO 


1473 


007320 


0007S7 






BR 


GTOKl 


1474 


007322 


105711 




GT0K2J 


TSTB 


tRl) 


1475 


007324 


001365 






BNE 


GTOKl 


1476 


007326 


12212* 






CMPB 


tRl)+,tSP5+ 


1477 


007330 


111102 






MOVB 


(R13.R2 


1478 


007332 


060201 






ADD 


R2,P1 


1479 


007334 


014137 


001372 




MOV 


-CRD.CADDR 


1480 


007340 


005037 


001374 




CLR 


CSTART 


1481 


007344 


010037 


001036 




MOV 


ROtKBPTR 


1482 


007350 


004737 


012256 




JSP 


PC,RST04 


1483 


007354 


000137 


001362 




JMP 


COMOUE 
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1484 








1485 








1486 








1497 


007360 


104406 


014272 


1488 


007364 






1489 


007364 


005037 


001010 


1490 








1491 


007370 


105037 


001272 
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(COMMON RETURN FROM COMMAND EXECUTION AND RUN ROUTIME (INCLUDING 
jRELOCATION AND INTERNAL RESTART) 



1492 007374 104406 014122 

1493 OO74O0 000137 001650 



COMCOl! MSGS.INVCMD 

COMCONi 

C0MC02: CLR SPCFLG 

CLR8 FILtJD 
COMC03J MSGSfDOT 
C0MC04« JMP INPUT 



»TyPE INVALID COMMAND. 

sCLEAR SPECIAL FLAG AND 

SDIR COMMAND INDICATOR. 

jCLEAR FILL COMMAND INDICATOR. 

I TYPE DOT, 

jGO GET MORb; INPUT. 



QAED DEC/XH SHOST MONITOR 
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1494 
149S 

1496 
1497 
1498 
1499 



007404 012637 nOlOSS 
007410 10S237 001010 
007414 000771 
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iSPECIAL INPUT ROUTINE. 

iCALLED BV HDDiry ROUTINE, WHEN WAITING FOR NEW VALUE TO BE INPUT, 



SEO 0209 



SIHPU 


Tir MOV 


(SPHiSRETRN 


iSAVE RETURN ADDR, 




INCB 


SPCFLS 


ISET SPECIAL FLAG. 




BR 


C0HC04 
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1500 










»PUN 


ROUTTNE, 


STARTS EXERCISER EX 


ISOl 










iNOTE 


THAT "PUN" IS ENTERED ONLV 


1502 










I THE 


PROGRAM 


IS NOT IN BANK 0. 


1503 
















1504 


007416 


000402 








BR 


, + 6 


1505 


007420 


105037 


001275 




RUN, 


CLRB 


LOCK 1 


1506 


007424 


005037 


0O1224 






CLR 


OFFSTD 


1507 


007430 


005037 


001244 






CLR 


SYSCNT 1 


1508 


007434 


005037 


001246 






CLR 


PWRCNT ; 


1509 


0074*0 


012737 


042761 


010470 


2ti 


MOV 


M276l,SLDSB ; 


1510 


007446 


012737 


042761 


010512 




MOV 


«42761,SLDSE j 


1511 


007454 


105037 


001274 






CLRB 


PUNPFL I 


1512 


007460 


105037 


001257 






CLRB 


RMODE J 


1513 


007464 


012737 


016234 


001250 




MOV 


«M0nQ-2»BKPTR 


1514 


007472 


004737 


012354 






JSP 


PC.CLRVEC J 


1515 


007476 


004737 


012272 




RUNRESI JSR 


PC.CLRQUS ! 


1516 


O07502 


112737 


177777 


001023 


llSl 


MOVB 


«-l,WBFLG ! 


1517 


007510 


012702 


016236 






MOV 


«"0D0,R2 > 


1519 
















1519 
















1520 


007514 


012201 






1$) 


MOV 


C2)+.B1 » 


1521 


007516 


001462 








BEQ 


RUNC t 


1522 


007520 


105737 


001257 






TSIB 


PMODE » 


1523 


007524 


001012 








BNE 


2» ) 


1524 


007526 


105737 


001260 






TSTB 


CHN , 


1525 


007532 


100407 








BMI 


2$ 1 


1526 


007534 


005061 


000026 






CLR 


PSCNTCR!) ! 


1527 


007540 


005061 


000030 






CLR 


ERCNTCRl) 1 


1528 


007544 


042761 


020000 


000020 




BIC 


«BIT13,STAT(Pn J 


1529 


007552 


032761 


040000 


000020 


2Sl 


BIT 


»BITl4.STATtRl) f 


1530 


007560 


001755 








BEQ 


IS 1 


1531 


007562 


032761 


020000 


000020 




BIT 


#BIT13,STAT{Rn » 


1532 


007570 


001351 








BNE 


IS ( 


1533 


007572 


005737 


001222 






TST 


OFFSET 1 


1534 


007576 


001414 








BEQ 


3S 


J535 


007600 


032761 


004000 


000020 




BIT 


#8IT11,STAT(R1) J 


1536 


007606 


001342 








BNE 


IS 


1537 


007610 


032737 


001777 


001222 




BIT 


#1777, OFFSET , 


1538 


007616 


001404 








BEQ 


3S r 


1539 


007620 


032761 


002000 


000020 




BIT 


iBlT10,STAT(Pn » 


1540 


007626 


001332 








BME 


IS 1 


1541 


007630 


105237 


001015 




3tl 


INCB 


MODCNT 1 


1542 


007634 


005761 


000020 






TST 


STAT(Rn 


1543 


007640 


100402 








BMI 


. + 6 ) 


1544 


007642 


105237 


001025 






INCB 


BKCNT ) 


1545 


007646 


032761 


010000 


000020 




BIT 


#BIT12,STAT(Rn T 


1546 


007654 


001402 








BEQ 


.+6 1 


1547 


007656 


105237 


001026 






INCB 


XCNT 1 


1548 


007662 


000714 








BP 


IS 1 


1549 


007664 


105737 


001015 




PUNCi 


TSTB 


MODCNT 1 


1550 


007670 


001005 








BNE 


5S 1 


15S1 


007672 


005737 


001222 






TST 


OFFSET , 


1552 


007676 


001501 








BEQ 


RUND , 


1553 


007700 


000137 


004604 






JMP 


ENDSVB 1 


1554 
















1555 


007704 


113737 


OOiOlS 


001016 


5«i 


MOVB 


MODCNT, MODCTR , 



"RUNRES" IS USED WHEN 



CLEAR LOCK. TO ALt.Ol-: CODE RELOCATION 

ZERO SYSTei' ERROR COUNTER 
ZERO POWftP FAIL CO!'NTEP 
RESTORF THESF INSTRUCTIONS 
FOR A CHECK SUM MQr'ULE 



INITIALIZE TRAPCSTCHEP IN VECTOR AREA 

IMCLUDES CLEARING BRAKE, MODCNT, lOPKTD 

INITIALIZE BUFFER BOTATION FLAG 

SETUP TO COU-'T SELS^CTED MODULES, AMD 

IF NOT SYSEPR OR POWER FAIL RESTART 

CLEAR MODULES' PASCNT AND ERRCNT. 

MODULE AODP TO Rl . 

BR IF NO MORE. 

INTESNAL RESTABT? 

BR IF YES. 

IN CHAIN MODE? 

BR IF YES. 

CLEAR MOH'S PASCNT. 

CLEAR MOD'S ERROR COUNT. 

CLEAR STOPPED BIT. 

MODULE SELECTED? 

BR IF NOT. 

MODULE STOPPED? 

BR IF YES. 

IF OFFSET 0, IGNORE PITS 10+11 

NOT 0- IF BITll TS SET, DON'T COUNT IT 

32K BOUNDARY? 

YES- IGNORE BIT 10 

NO- BIT 10 SET? 

YES- DON'T RUN THIS MODULE 

NO, UP COUNT OF RUNABLE MODULES, 

iBKHOD? 
NO- BRANCH 
YES- UP COUNT 
EXTENDED MODULE? 
NO- BRANCH 
YES- COUNT IT 
GO CHECK NEXT MODULE, 
ANY RUNABLE MODULES? 
YES, BRANCH 
NO, OFFSET 07 
YES- COMMAND INVALID 

NO- THE ONLY MODS RUNNABLE MUST BE THOSE 
WITH BITS 10 OR 11 SET- RELOCATE 
LOAD COUNT OF RUNNABLE MODULES 



q«EQ DEC/Xn SHORT MOHITOP 
DXQABM.PU 31-APR-7T 13142 



MACVU 27(1006) 22-&PP-77 12|53 PACE S7 



SEQ 0211 















007712 


01273? 


016234 


001040 




007720 


012737 


040000 


001060 




007726 


105237 


001320 






007732 


105737 


001261 






007736 


00144? 








007740 


11373? 


001026 


001031 














007746 


10633? 


001031 






007752 


10633? 


001031 






007756 


106337 


001031 






007762 


10633? 


001031 






007766 


12372? 


001026 


000020 




007774 


103403 








007776 


112737 


000377 


001031 




010004 


11373? 


001031 


001302 




010015 


113737 


OOiOiS 


001033 




010020 


106337 


OOiC33 






010024 


106337 


001033 






OlOOSO 


106337 


001033 






010034 


123727 


001015 


000040 




010042 


103403 








010044 


11273? 


000377 


001033 




010052 


004737 


010126 






r>;oo36 


105737 


501 2S7 






010062 


001005 








010064 


104406 


014122 






010070 


11273? 


000001 


001257 




010076 


00013? 


001650 






010102 


00503? 


001224 






010106 


00473? 


014060 






010112 


10503? 


001257 




1588 


010116 


104406 


014346 




1589 


010122 


00013? 


007364 





48t 
BUNOI 



MOV 
MOV 
IMCB 
TSTB 

BEQ 
HOVB 

ASLB 

ASLB 

ASL8 

ASLB 

CMPB 

BLO 

HOVB 

MOVB 

MOVB 

ASIB 

ASLB 

ASLB 

CMPB 

BLO 

HOVB 

JSR 

BNE 

HSGS; 

HOVB 

JMP 

CLR 

JSS 

CLRB 

HSCS 

JMP 



»«0D0-2.MOOPTP 

*40000,I0BKID 

NSTOP 

RDTI 

2S 

XCNT»RDTCT 

POTCT 

POTCT 

ROTCT 

POTCT 

XCNTf »20 

IS 

i377, ROTCT 

BOTCT,$<;WBFC 

MODCNT,PASREL 

paSREL 

PASPEL 

PASPEL 

MOOCNT,#40 

34 

(377>PASREL 

PCSETWer 

48 

DOT 

ii.pmodf; 

INPUT 

OFFSTD 
PCjHVCOOE 
RHODE 
INVCD4 
COMCON 



lINTO STARTUP COUNTER 

, MODULE TABLE ADOR TO MODPTR, 

SSTART WITH SPECIAL BACKGROUND MODULES, 

>SET THE NON-STOP FIAC 



» SETUP ROTATION TIMEOUT COUNIER- 
»0F EXTENDED MODULES 



16 TIMES iiUMBER 



fPREVENT LOSS Of COUNT TF OVERFLOW 



tINITIALIZE WRITE BUFFER ROTATION COUNTER 
;SET ALTERNATE RELOCATION COUNT TO 8 
fTIMES MOOCNT 



;SET RHODE IN CURRENT BANK 



I 'NO HOOULES SELECTFO* 



OAED DFC/X11 SWOBT HO»iITnp 
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SEO 3212 



1590 










» SETUP 


KRITE 


PUFFER INFOPHATII 


1591 
















1592 


010126 


00503? 


000076 




SETWBFl 


CLR 


WBUFEA 


1593 


010132 


013737 


001200 


001212 




MOV 


LOCORE,WBUF 


1594 


010140 


01373? 


001204 


001216 




MDV 


LC0P12»WBUF12 


1595 


010146 


06373? 


001222 


001216 




ADD 


OFFSET, WBtJF12 


1596 


010154 


023737 


001216 


001206 




CHP 


WPUF12,HC0P12 


1597 


010162 


001001 








BNE 


SETWBl 


1599 


010164 


00020? 








PTS 


PC 


1599 
















1600 


010166 


013737 


001206 


001236 


SETWBlt 


MOV 


HC0P12,MXWBF 


1601 


010174 


105737 


001260 






TSTB 


CHN 


1602 


010200 


100O03 








BPl 


IS 


1603 


010202 


06273? 


000040 


001236 




ADD 


i40,MXWBF 


1604 


1 02 1 


16S737 


001216 


001236 


l$l 


SUB 


WPLTI2,WXXBF 


1605 


010216 


006337 


001236 






ASL 


MXWBF 


1606 


010222 


00633? 


001236 






ASL 


HXWBF 


1607 


010226 


00633? 


001236 






ASL 


MXWBF 


1608 


010232 


O06337 


001236 






ASL 


HXWRF 


1609 


010236 


006337 


001236 






ASL 


MXWBF 


ISIO 


0102*2 


101003 








BCC 


.*I0 


1611 


010244 


012737 


17777? 


001236 




MOV 


#177777, MXWBF 


1612 


010252 


0O0207 








PTS 


PC 



jZERO fa BITS 

;LOAD STAPTING ADP OF WRITE BUFFER 



J IS WRITE BUFFER AT THE TOP ? 
JNO, IT'S OK, CONTINUE 
fPETURN 

»CALCULATE F'AX SIZE OF WRITE SUFFER 
»IN CHAIN MODE 7 

jVO, DOW'T ADD AWy ^-ORF KPITE BUFFER 
»YES, ADD IK TO MAX, WRITE BUFFER SIZE 
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8SQ 0313 



1613 
1614 
1615 








iMAP 


ROUTINE. 


TYPES RESIDENT MQ 


010354 


105237 


001011 


MAPI 


INCB 


DIRIND 


1616 


010360 


105037 


015450 




CLRB 


MDIRE 


1617 


010364 


004737 


010274 




JSR 


PC.DIRA 


1618 


010270 


000137 


007364 




JMP 


COMCON 


1619 














1630 


010274 


012702 


016236 


DIPAl 


MOV 


♦MODO.RI 


1631 


010300 


013201 




111 


MOV 


(2)+fRl 


1633 


010303 


001446 






BED 


5* 


1633 


010304 


032761 


040000 000020 




BIT 


»BIT14,STAT(RH 


1634 


010312 


001003 






BNE 


21 


1635 


010314 


105737 


001011 




T5TB 


DIRIND 


1636 


010320 


001767 






BEO 


It 


1637 


010322 


004537 


011206 


211 


JSR 


PS.FIILNH 


1638 


010326 


015415 






AMODMM+1 


1639 


010330 


010146 






MOV 


Rl,-CSP) 


1630 


010332 


004537 


011512 




JSR 


RS.OACNV 


1631 


010336 


015426 






APC 




1632 


010340 


016146 


000020 




MflV 


STAT(Pn»-CSP) 


1633 


010344 


004537 


011512 




JSR 


RS.OACNV 


1634 


010350 


015442 






AMDSTA 




1635 


010352 


016146 


000026 




MOV 


PSCNTtRn,-(SP) 


1636 


010356 


004537 


011744 




JSR 


R5.BDCNV 


1637 


010362 


015461 






APSCMT 




1638 


010364 


016146 


000030 




MOV 


ERCNT(R1),-(SP) 


1639 


010370 


004537 


011744 




JSR 


R5,BDCNV 


1640 


010374 


015500 






AERRS 




1641 


010376 


105737 


001011 




TSTB 


DIRIND 


1643 


010402 


001003 






BNE 


31 


1643 


010404 


112737 


000040 015450 




MOVB 


#40, MOIRE 


1644 


010412 


104406 


015414 


3ti 


M5G$,AM0DNM 


1645 


010416 


000730 






BR 


It 


1646 


010420 


000207 




5*1 


RTS 


PC 



ISET DIR INDICATOR, 
ITERMINATE ASCII STRING EARLY, 
ITYPE MAP, 



I SET MODUt-E TABLE ADDR. 

(GET MODULE ADDR. 

»BR IF 0. ALL DOWE. 

J MODULE SELECTED? 

»BR ir YES. 

I TYPING DIRECTORY? 

»BR ir NOT. OONT TYPE UNSELECTEO MOOS, 

iFILL MOD NAME IN ASCII STRIHG. 

lAPDR TO STUFF NAME IN, 

I MODULE ADDR TO STACK, 
jCOHVERT MOD ADDR TO ASCII, 

iCONVERT MODULE STATUS. 



(MOD'S PASS COUNT TO STACK. 
(CONVERT IT TO DECIMAL ASCII. 

JMOD'S ERROR COUNT TO STACK. 
iCONVERT IT TO DECIMAL ASCII. 

jTYPIMG DIRECTORY? 

jBR IF YES. 

jNO. ALLOW TYPING FULL STRING. 

STYPE ASCII LINE. 

»D0 IT AGAIN. 

lEXIT, 
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1647 










I SELECT 


MODULE(S) ROUTINE. 


1648 
















1649 


010423 


012737 


052761 


010470 


SELI 


MOV 


«52761,SL0SB 


1650 


010430 


012737 


052761 


010512 




MOV 


•52761, SLDSE 


1651 


010436 


000406 








BR 


SLDS 


1653 
















1653 










iDESELECT MODULECS) ROUTINE. 


1654 
















1655 


010440 


012737 


042761 


010470 


DESt 


MOV 


•42761, SLDSB 


1656 


010446 


012737 


042761 


010513 




MOV 


•42761, SLDSE 


1657 
















1658 










1 SELECT/DESELECT COMMON. 


1659 
















1660 


010454 








SLDSi 






1661 


010454 


004737 


011234 




SLDSAl 


JSR 


PC.GETNAH 


1663 


010460 


000410 








BR 


SLDSC 


1663 


010462 


000405 








BR 


SLDSL 


1664 


010464 


013701 


001040 






MOV 


MnoPTBjRJ 


1665 


010470 


042761 


040000 


000020 


SLDSBf 


BIC 


• HITU.STAKRl) 


1666 


010476 


000137 


007364 




SLDSLi 


JMP 


COMCON 


1667 


010502 


012702 


016236 




SLDSCi 


Hnv 


«MqDQ,R2 


1668 


010506 


012201 






SLDSDi 


MOV 


(2)+.Rl 


1669 


010510 


001772 








BEO 


SLDSL 


1670 


010512 


042761 


040000 


000020 


SLDSEi 


BIC 


»BIT14,STAT(Rn 


1671 


010520 


000772 








BR 


SLDSD 


1672 










iLOCATIl 


DNS SLDS 


B AND SLDSE ABE 



iMOniFY COMMON TO SELECT MODULE(S), 
( 

tGO TO COMMON. 



•MODIFY COMMON TO DF5ELECT MODULECS), 



rCHECK NAME. GET MODULE ADDR. 

jNO NAME. SELECT/DESELECT ALL, 

jTNVALID OR NEX NSME. 

:>«ODULE APDP TO Bl . 

(SELECT/DESELECT MOOULE. 

iDONE. 

(MODULE TABLE ADDR TO R2. 

jGET MODULE ADDP. 

IBR IF n.END OF TSBT.E, DONE, 

jSELECT/DESELECT MODULE. 

;nO IT AGAIfJ. 
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MkCYU 37(1006} 33-APR-77 13|S3 PAGE 61 





010523 




OlOS?? 




010S22 




010522 
















010536 




010532 




0105J6 




















010542 




010550 




010556 


1690 


010562 



105037 001262 
004737 013262 
000137 007374 



112737 000377 

013737 001266 

104406 014700 

000137 007374 



SEC 0219 



PON I 

pnrr; 

icTONi 

KTorrt JHP 



C0HC03 



jISNORE THE COMMAND 



J THIS ROUTINE ENABLES WRITE BUFFER POTATION 

ROTOBI CLRB ROTL jCLEAR ROTATION LOCK FLAG 

JSR PC.POTCHK |G0 DO »ENABt.ED« MESSAGE 
JMP C0MC03 jCONTINUE 



I THIS ROUTINE DISABLES WRITE BUFFER ROTATION 



001262 ROTOFF! MOVB 1377, ROTL 
0012S4 MOV ROTNUM,ROTCNT 

MSG»,RDTDI5 
JMP C0MC03 



J SET THE ROTATION LOCK FLAG 
jLOAD THE ROTATION COUNTER 
j'MBUF ROTATION DISABLED" 
jCONTINUE 



QAEO DEC/X11 SHORT MONITOR 
CXQABM.sil 21-APR.77 12l42 



1691 








1692 








1693 








1694 








1695 








1696 


010566 


112737 


177777 


1697 


010574 






1696 


010574 


(104737 


011234 


1699 


010600 


000401 




1700 


010602 


000440 




1701 


010604 


004737 


011032 


1702 


010610 


000430 




1703 


01061? 


013704 


001042 


17ft4 


ota«t6 


063704 


001040 


1705 


010632 


010446 




I 706 


010624 


004737 


011000 


1707 


01O630 


011446 




1708 


010632 


004737 


011000 


1709 


010636 


004737 


007404 


1710 


010642 


0,04737 


011070 


1711 


010646 


0O0416 




1717 


O10650 


005737 


001062 


1713 


010654 


001401 




1714 


010656 


"10114 




1715 


010660 


122702 


000012 


1716 


010664 


001007 




1717 


010666 


005724 




1718 


010670 


000754 




1719 


010672 


012704 


001254 


1720 


010676 


105737 


001272 


1721 


010702 


001352 




1722 


010704 


000137 


007364 
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iMODIFY ROUTINE. 

jGETS ADDRESS AND PRINTS ADDR CONTENTS. 

lUSER CAN INPUT NFW NUMBER OR CR. 

»CP MEANS HF JUST WANTS TO EXAMINE, 

001272 



SEO 0216 



FILL! 
MODI 


MOVB 


»-l.FILLID 


JSET FTLL INDICATOR. 


5$l 


JSR 


PCOETNAM 


;GET NAWE AND MODULE ADDR, 




BR 


4t 


(NO NAME. 




BR 


3t 


rINVALIO OR NEX NAME. 


4tt 


JSR 


PC, GET ADR 


(GET ADDRESS, 




BR 


6$ 


rlNVALTD »DOB OR NO ADDR, 




MOV 


ADDRL0,R4 


J^OVE ADDR TO R4. 




ADD 


MOOPTR,R4 


?»nt> <«pwn)i!r addr to Anow. 


111 


MOV 


R4,-tSP) 


I TYPE ADDR. 




JSR 


PC,IT0A 


! 


7SI 


MOV 


(R4),-(SP) 


»GET CONTENTS OF ADDR, 




JSR 


PCITOA 


SPRINT IT OUT, 




JSR 


PCSINPUT 


sGET NEW CONTENTS. 




JSR 


PCGETNUM 


»CONVERT IMPUT TO BINARY. 




BR 


3S 


UNVALIP DATA (NOT A NUMBER! 




TST 


YES 


! NUMBER? 




BEO 


2S 


sBR IF WOT. 




MOV 


R1,(R4) 


jSTORE "EW V«LUE. 


2«: 


CMPB 


#12, R2 


sLIME FEE07 




BNE' 


3S 


|N0. DONE. 




TST 


(R4) + 


J POINT TO NEXT LOCATION, 




BP 


IS 


(REPEAT FOR NEXT LOC . 


6S: 


MOV 


•FILCNT,R4 


iGET FILCNT ADDR. 




TST8 


FILLID 


J IN FILL HODET 




B»iE 


7S 


»BR IF YES. 


3«! 


JMP 


COMCON 


I DONE, 
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iBIHAPY TO ASCII TYPE ROUTINE. TYPES NUMBER(S) 'OH STACK, 

ITOAXI 

























010710 


016646 


000002 






010714 


016666 


000002 


000004 




010722 


016666 


000006 


000002 




010730 


004537 


0U524 






010734 


015515 








010736 


104406 


015515 






010742 


000425 


















010744 


016646 


000002 






010750 


016666 


000002 


000004 




010756 


016666 


000006 


000002 



HOV 


2(SP).-(SP3 


ILOAD EA BITS 


MOV 


2(SP}>4(SP} 




MOV 


6(SP)>2(8P} 




JSR 


RS.OACNVX 




HOl.06 




jANn PUT IT HERE 


MSGl, 


H01,D6 


(TYPE OUT THE VALUE 


BR 


ITbUT 




MOV 


2(SP).-(SP) 


lliOAD UPPER BITS 


MOV 


2(SP),4(SP) 


lAHD LO>iER BITS 


MOV 


6(SP)«2(SP) 


JAND ADJUST THE STACK 
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DXOABM.PH 21-APR.77 12:42 Sn 02lB 

JSR PS.OACMVS lCO«fVERT 9 OCTAL NUMBERS TO ASCII 

HOLDS J AN!) PUT THFM HfPF 

MSGI.HOLOe rTYPE OUT THE OCTAL VAL'IE 

BR ITOUT iGO TYPK IT OUT 

ITOAJ MOV 2tSP),-CSPJ 

JSR RS.OACNV sCONVERT ^UMP«;R TO SSCIT. 

H0LD6 

MSGS,H0LD6 ;TYPE OCTAL VSLHE, 
ITOMTt MOV (SP)+fCSP) 

RT3 PC jKXIT. 





010764 


004537 


011532 




010770 


0155J6 






010772 


104406 


015526 




010776 


000407 






















OllnOO 


016646 


000002 




011004 


004537 


011512 




on 010 


015515 






011012 


104406 


015515 




011016 


012616 






011020 


000207 
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oiioaz 


064757 


OiiOTu 




011026 


000414 






011030 


009737 


001062 




011034 


001411 






011036 


006201 






011040 


103410 






011042 


060101 






011044 


010137 


001042 




011050 


010337 


001044 




011054 


062716 


000002 




011060 


000207 














011062 


104406 


014364 




011066 


000207 
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(THIS ROUTINE GETS THE ADDRESS ASSOCIATED WITH THE MOD COMMAND 



SEQ 0219 



VfE<XHUr*{ uc 



BP 


11 


TST 


YES 


BEQ 


1$ 


ASP 


Bl 


BCS 


ADRERR 


ADD 


Pl.Rl 


MOV 


Rl.ADDPLO 


MOV 


R3,ADDPHI 


ADD 


»2,CSP) 


RTS 


PC 



ADRERRi HSGSrINVADR 
RTS PC 



J INVALID DATA RETURN. 

iNUMBER? 

I BR IF NOT, 

J GOOD ADDRESS? 

jNOGOOD, IT'S ODD 

jRESTORE THE ADR 

iSTORE AT SDDRLO 

J AND ANY HIGH ORDER BITS IN ADDPHI 

jSET UP GOOD EXIT, 

:DONE 

;TVPE INVALID ADDR OR DATA. 
jEXIT. 
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1764 








1765 








1766 








1767 








1769 


011070 


013700 


001036 


1769 


011074 


00^001 




1770 


011076 


005003 




1771 


oinoo 


005037 


001062 


1772 


01U04 


112002 




1773 


011106 


120227 


000040 


1774 


011112 


001770 




177! 


011114 


122702 


000015 


1776 


nniJo 


np1425 




1777 


011122 


120227 


000012 


1778 


mine 


!lnH27 




1779 


f11l30 


150227 


OOOOfiO 


1780 


011134 


002752 




1781 


011136 


120227 


000067 


1792 


011142 


003347 




1783 


011144 


006301 




17t4 


011146 


006103 




179S 


011150 


0^6301 




1786 


onisj 


006103 




1797 


011154 


006301 




1798 


011156 


006103 




1799 


011160 


060201 




1790 


011162 


162701 


000060 


1791 


nni66 


005237 


001062 


1792 


01U72 


000744 




1793 


01117 4 


010037 


001036 


1794 


011200 


062716 


000002 


1795 


01 1204 


000207 
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I GET NUMBER FROM KEYBOARD BUFFER, AND RETURN THK L0'-« ORDER HITS 

I IN PI AND THE HIGH ORDER BITS TN R3 . 

tROUTINE ADDS 2 TO THE RETURN PC IF SUCCESSFUL. 

jGET BUFFER POINTER. 
»DATA 

tFLAG 

J GET A BYTE 

(SPACE? 

•YES, IGNORE IT 

!CR7 

SYCS, RETURN 

»LF7 

jDONE 

tLOW LTMTT 

jTOO LOW, REPORT THF FRROR 

jHIGH LIMIT 

»T00 HIGH, REPORT THE ERROR 

fSHIFT nLD STUFF 

J 3 TIMES LEFT 

jI.E. MULT. BY OCTAL 10 

J ADD NEW TO OLD 

jBUT GET RID OF ASCII STUFF 

?SET FLAG 

IMOPE, MORE 

(SAVE CURRENT BUF POINTER. 

ISET UP OK EXIT, 

»EXIT, 



SEQ 0220 



GETNUMl 


HOV 


KPPTR,RO 


3«J 


CLR 


PI 




CT,R 


R3 




CLR 


YES 


ISl 


MOVB 


(R0)+,R2 




CMPB 


P2,|40 




BFQ 


3$ 




CMPB 


115, P2 




BEQ 


2$ 




CMPB 


R2.tl2 




aro 


3« 




CMBB 


R2,»'0 




BLT 


ADRERR 




CMPB 


R2,#'7 




BGT 


ADRERR 




ASL 


PI 




POL 


R3 




ASL 


Rl 




POL 


R3 




ASL 


Rl 




POL 


R3 




ADD 


R2,R1 




SUB 


»'0,R1 




TNC 


YES 




BR 


U 


2(1 


HOV 


RO.KBPTR 




ADD 


•2,tSP) 




RTS 


PC 
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1796 






1797 






179( 


011306 


010346 


1799 


011310 


013503 


laoo 


011313 


013704 


ISOl 


011316 


113133 


1803 


0113S0 


005304 


1«03 


011333 


001375 


1S04 


011324 


163701 


1805 


011330 


013603 


180S 


011333 


000305 



MACYll 37(1006) i2-k9K'lt 13153 PAGE 67 



jTHIS ROUTINE PUTS THE MODULE H»HE INTO »N ASCII, STRING rOB OUTPUT 



SGO 0331 



riLL«Hi 


HOV 


R3,-(SP) 


(SAVE R3. 




HOV 


(R5)*,R3 


(STORE ADDR TO R3. 




MOV 


*5.R4 


jMILl DO 5 TIMES. 


iti 


M0V8 


CR1)+»(R3)+ 


iHOVE CHAR, 




DEC 


R4 


JOONE? 




BNE 


11 


JBR ir HOT. 




SUB 


»5,R1 


» RESTORE Bl, 




MOV 


tSP)+,R3 


tRESTORR R3. 



JEXIT. 
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SEO 0222 



1807 








(THIS 


POUTTNE 


GETS THE MODULE 


NAME ASSOCIATED WITH THE MOD AND SEL/DES CO^M 


1808 
















1809 


011234 


013700 


001036 


SETNAMi MOV 


KBPTR.RO 


IGET PUFFER POINTER. 


1810 


011240 


005037 


001063 




CLP 


YK5 


(CLEAR SUCCESS INDICATOR. 


1811 


011244 


005037 


001040 




CLR 


MODPTP 


(IF 0, ABS ADDR. 


1812 


011250 


013702 


000005 




MOV 


i5,R2 


(WILL 00 5 TIMES. 


1813 


011254 


013701 


015415 




MOV 


#AM0DMM+1,R1 


(MILL STORE KYBD name m TMPNAM. 


1814 


0112*0 


113731 


000040 


111 


MOVB 


»40.CR1)+ 


(BUT CLEAB IT TO SPACES FIRST. 


1815 


011364 


005303 






DEC 


R2 


(DOME? 


1816 


011266 


001374 






BNE 


It 


(BR IF NOT, 


1817 


011270 


013701 


015415 




MOV 


*AM0DNH+1,R1 


(RELOAD TEMP ADDR, 


1818 


011274 


111002 




311 


MOVB 


(P03.R3 


(GET CHAR FROM KBUF AREA. 


1819 


011276 


123703 


000015 




CHPB 


»15.R2 


(CR? 


1830 


OM303 


001443 






BEO 


61 


(BR IF YES. 


1831 


015304 


133703 


000013 




CMP6 


»12.R2 


(LF? TREAT AS CR. 


1833 


011310 


001437 






BEQ 


6t 


(BR IF YES. 


1833 


011313 


123702 


000040 




CMPe 


*40rR3 


(SPACE? DISREGARD LEADING ONES, 


1834 


011316 


001430 






BEQ 


5« 


(BR IF YES, 


1835 


011330 


120337 


000101 




CMPB 


R2,I'A 


(A OR HIGHER? 


1836 


011334 


003403 






BLT 


3S 


(BR IF LESS, (COULD BE A NUMBER), 


1827 


011336 


120337 


000133 




CMPB 


R2,»'Z 


(Z OP LESS? 


1838 


011333 


003411 






BLE 


4( 


(BR IF Z OR LESS. 


1839 


011334 


120327 


000060 


3*1 


CMPB 


R2,t'0 


(0 OR HIGHER? 


1630 


011340 


002437 






BLT 


7$ 


(BR IF LESS. YOU LOOSE! 


1831 


011343 


120327 


000071 




CMPB 


P2f»'9 


(9 OB LESS? 


1833 


011346 


003034 






BGT 


71 


(BR IF GREATER. YOU LOOSEI. 


1833 


011350 


005737 


001063 




TST 


YES 


(ANY PREVIOUS CHARS? 


1834 


011354 


001436 






BEO 


8B 


(BR IF NOT, NOT LEADING NUMERICS ALLOWEDJ, 


1835 


011|56 


033727 


001063 000005 4tl 


CMP 


YES.tS 


(6TH CHARACTER? 


1836 


011364 


003015 






BSE 


7» 


(IF YES, BRANCH 


1837 


011366 


110331 






MOVB 


R2,(B1)+ 


(STORE CHAR. 


1838 


011370 


005337 


001063 




INC 


YES 




1839 


0U374 


005300 




41*t 


INC 


RO 


(POINT TO NEXT CHAR. 


1840 


011376 


000736 






BR 


3( 


(DO IT AGAINI 


1841 


01140Q 


005737 


001063 


5(i 


TST 


YES 


(ANY CHARS? 


1843 
















1843 
















1844 
















1845 


911404 


001773 






BEO 


411 


(BR IF NOT. 


1846 


011406 


000416 






BR 


9* 




1847 
















1848 


011410 


005737 


001063 


611 


TST 


YES 


(ANY CHARS? 


1849 


911414 


001013 






BNE 


91 


(BR IF YES. 


1850 


011416 


000405 






BR 


8t 


(NO NAME. 


lasi 


911430 


104406 


014403 


7tl 


MSGIiINVNAN 


(TYPE INVALID OR NEX (NON-EXISTENT) «ESSAGE 


1853 


011434 


063716 


000003 




ADD 


*3,(SP) 


(SET UP INVALID NAME EXIT. 


1853 


011430 


000307 






RT8 


PC 


(EXIT. 


1854 
















1155 
















1856 


011433 


005037 


001063 


811 


CLR 


YES 


( 


1857 


911436 


010037 


001036 




MOV 


RO.KBPTR 


(SAVE CURBENT BUF POINTEfi. 


1858 


011443 


000307 






RTS 


PC 


(EXIT. 


)859 


011444 


013703 


016336 


9ti 


HOV 


»M0Da,R3 


(MODULE TABLE ADDR' TO R2. 


1860 


011450 


013303 




lOlt 


NOV 


(B3)*,R3 


(GET MODULE ADDR. 


1861 


911453 


001763 






BEO 


71 


(INVALID NAME, NO MODULEJI 


1863 


011454 


013701 


015415 




MOV 


IAN0DNM+1,R1 
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ie&3 


PIUSO 


012704 


OOOOOS 


IBB* 


nii4B4 


122123 




186S 


011466 


001370 




1866 


011470 


005304 




1967 


011472 


001374 




1868 


011474 


014237 


001040 


1869 


OII5OO 


010037 


001036 


1870 


011504 


062716 


000004 


1871 


611510 


000207 
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-77 12J53 PAGE 


69 


MOV 


»5,P4 


jWILL VSTCH 5 CH»RS. 


C*ipB 


£Snt,(3j + 


JCHAR WATCM7 


BNE 


lot 


IBR IF NOT. 


DEC 


B4 


iDONE? 


BNE 


lis 


tBR ir not. 


MOV 


-CR23.MODPTR 


(MODULE ADDR TO MODPTP. 


MOV 


RO.KBPTB 


ISAVE CURRENT BUF POINTER 


ADD 


«4,t5P5 


fSET UP SUCCESS EXIT, 


PTS 


PC 


SEXIT. 



SEQ 0223 



011512 005037 001112 
OII5I6 105037 001310 
011522 000412 



011524 

011530 



105037 

000403 



Oft^^? !T7"»J7 000200 00'.110 OBCVB? "ffV? 
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1972 
1873 
1874 
1875 
1876 
1877 
1878 
1879 
1880 
1881 
1882 
19B3 
1884 

itm 

1996 
1887 
1988 
1889 
1990 
1891 
1992 
1893 
1994 
1895 
1896 
1897 
1998 
1899 
1900 
1901 
1902 
1903 
1904 
1905 
1906 
19Q7 
1908 
1909 
1910 
1911 
1912 
1913 
1914 
1915 
1916 
1917 
1918 
1919 
1920 
1921 
1922 
1923 
1924 
1925 
1926 
1927 
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lOCTAl TO ASCII CONVERT ROUTINE. 

iCONVERTS ARGUMENT ON STACK TO ASCII, STORES STRIMG STARTING AT ADDRESS 

jGXVEN FOLLOWING THE CALL 

jEXTENDEO ENTRY REQUIRES ADDITIONAL ARGUMENT ON STACK- AFTER 

iPUSHING LOWER 16 BITS ONTO STACK, PUSH EA BITS {SHIFTED TO POS 4,5) 



SEQ 0224 



OACNVj CLP 
CLRB 

BR 

OACNVXJ CLRB 
BP 



011540 
01 1546 
011550 
011514 
01 1 560 
0)1562 
011566 
011570 
011574 
011576 
011602 
011S04 
011610 
011614 
011616 
011622 
011624 
011626 
011630 
011632 
011634 
011640 
011642 
011646 
011650 
011652 
011654 
011656 
011660 

011662 
OU670 
011S72 
011676 
011700 
011704 
011706 
011710 
011714 
011716 
011720 



016637 
012616 
004437 
P)6600 
012501 
012702 
060201 
105737 
100002 
062701 
010003 
042703 
062703 
110341 
042700 
006000 
006000 
006000 
005302 
001363 
105737 
100410 
013702 
006202 
006202 
006202 
060203 
110311 
000425 

132737 
001021 
013700 
006300 
042700 
060003 
110311 
013700 
006200 
006200 
012702 



012244 
000014 

000006 

001310 

000002 

177770 
000060 



001310 
001112 



000001 
001112 
177770 

001112 

000002 



001112 HOPi 

CONVRTl 



001310 411 



MDV 
MOV 
JSP 
MOV 

uny 

MOV 

ADD 

TSTB 

BPL 

ADO 

MOV 

PTC 

ADO 

Move 

BIC 

ROP 

ROB 

ROR 

DEC 

BNE 

TSTB 

BMI 

MOV 

ASP 

A8R 

ASP 

ADD 

MOVB 

BR 

BITB 

BNE 

MOV 

ASL 

BIC 

ADO 

MOVB 

MOV 

ASR 

ASP 

MOV 



OASCEA 

ATE 

CONVRT 

ATE 
HOP 

2(SP),PASCEA 

t5p)+,(SP) 

R4,SAV04 

12.(SP),R0 

rpsj+.p} 

»6.R2 

R2,P1 

ATE 

3t 

»2,R1 

R0,R3 

»17777C,P3 

*60,R3 

R3,-(R1) 

• 7,R0 

BO 

RO 

RO 

R2 

3t 

ATE 

4t 

OASCEA, P2 

R2 

R2 

R2 

R2.R3 

R3,tBl) 

51 

»BIT0,ATE 

St 

OASCEA, RO 

RO 

#177770, RO 

R0,P3 

R3,(Bn 

OASCEA, RO 

RO 

RO 

12, R2 



iCLEAR OUT UPPER BITS " NOT USED 
JCLFAR 8 CHARACTER FLAG 
SCONTTN'IE 

jCLEAR 9 CHARACTER FLAG 

jCDN'TINUE 

fSET B CHSRACTER FLiG 



iSAVE REGS 0-4. 
|GET OCTAL VALUE. 

•GET DEST ADDP 
J SET CONVERT COUNT TO 6. 
J DEVELOP ADDR TO STORE 1ST CHAR, 
>SET UP TO DO 8 CHARACTERS 7 
(NO, CONTINUE 

J YES, ADD 2 TO THE SDDPESS 
»GET VALUE TO R3. 

(ISOLATE LEAST SIGNIFICANT DIGIT. 
(CONVERT TO ASCII. 

(STORE IT. 
(CLEAR DIGIT JUST COHVERTED. 
(SHIFT IN NEXT DIGIT. 



(DONE 6 DIGITS? 

(BR IF NOT. 

(SET UP TO DO 8 CHARACTERS T 

(YES, 00 IT 



(GO FINISH UP 

(ALL DONE T 

I YES, GET OUT 

(NO, LOAD UPPER NUMBERS TO BE CONVERTED 

(LINE UP BITS BELONGING TO LOWER NUMBER 

fCIT RID OF ALL OTHERS 

(ADD IT IN TO COMPLETE THE NUMBER 

(STORE II 

(LOAD UPPER BITS AGAIN 

(GIT RID OF THE 2 BITS 

(JUST TAKEN CARE OF 

(SET UP TO DO THE LAST 2 CHARACTERS 
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SEQ o3as 





011724 


182737 




011732 


000723 










01173* 


004737 




011740 


019616 




011742 


00020S 



000001 001310 



BISB 
BR 

JSR 
HOV 
BTS 



*BITO,ATE 
31 

PC,BST04 

CSP)+,t»P) 

R5 



ISET 'ALL DOKE' TLAG 

)G0 DO THE LAST 2 CHARACTERS 



;PESTORE RESS, THRU 4 

« 

jRETURN 
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1934 








1935 








1936 








1937 








1936 








1939 


011744 


004437 


012244 


1940 


011750 


016601 


000014 


1941 


011754 


012700 


016230 


194S 


011760 


0J2702 


012044 


1943 


011764 


012703 


000005 


J944 


011770 


005004 




1945 


01J772 


161201 




1946 


011774 


103402 




1947 


011776 


005204 




194R 


012000 


000774 




1949 


012002 


069201 




1950 


012004 


062704 


000060 


1951 


OJ20)0 


110420 




1952 


012012 


005303 




1953 


012014 


001365 




1954 


012016 


012501 




1955 


012020 


012702 


000005 


1956 


012024 


060201 




1957 


012026 


114041 




1958 


012030 


005302 




1959 


012032 


001375 




i960 


012034 


004737 


012256 


1961 


012040 


012616 




1962 


019042 


000905 




1963 


012044 


093420 


001750 


1964 


012052 


000012 


000001 
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jBINAPV T" PECIMAL ASCII CONVERT ROUTINF. 
iCONVERTS ARGUMITNT ON STACK TO DECIMAL ASCII, 
iSTAPTIHG AT ADDRESS GIVEN AFTER THE CALL. 
I REMOVES ARGUME'IT EPOM STACK BEFORE RFTl'PNING 



SV.O 0226 



BDCNV 


1 JSR 


R4,SAV04 




MOV 


12.(SP5,P1 




MOV 


IDECVAL.PO 




MOV 


tTENPKR.RJ 




MOV 


»5,P3 


ISl 


CI.P 


R4 


281 


SUB 


(P2)»R1 




ecs 


3S 




I^C 


R4 




BR 


2» 


3St 


ADO 


(R2)+.R1 




ADD 


»60,R4 




MOVP 


R4,(R0)+ 




DEC 


P3 




ENF 


IS 




MOV 


CR5)+»Pt 




WOV 


«5,B2 




ADD 


R2,P1 


4Si 


MOVB 


-(PO)»-(Rn 




DEC 


R2 




BNE 


4t 




JSP 


PC,RST04 




MOV 


(SP)+,(SP) 




RTS 


R5 



jSAVE RFGS n-4. 

;GET BIN VALUE. 

fGET ADDP OF DECVAL STPING. 

SADDR OF TFNPWR TO R2. 

;SET UP TO DO 5 CONVERSTONS. 

J CLEAR RESUr.T, 

: SUBTRACT TEN POKRR, 

rBR IF UNSUCCESSFUL. 

(ADD 1 TO RESULT. 

IDO IT AGAIN. 

jP.ESTORF SUBTRACTED VALUE, 
(MAKE IT ASCII. 

(SAVE IT. 
(DONE 57 
:BR IF NOT. 

(GET FINAL STORE «DOR. 
(RET DIGIT COUNT DESIRED. 
(COMPUTF ADDR OF 1ST DIGIT, 
(TRANSFEP CHAP, 
(DONE? 
(BR IF NOT. 
(RESTOP?; PEGS 0-4. 

(EXIT, 



000144 TENPWPi 10000, . 1000. »100., 10. ,1 
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1965 








196S 








i5e7 


012096 


04Z7b6 


170000 


1968 


012064 


000002 




1969 








1970 








1971 








1972 








!97| 








1974 








1975 








1976 








1977 


012066 


004437 


012244 


1979 


012072 


013700 


001162 


1979 


012076 


013701 


001160 


1980 


012102 


012702 


000020 


1981 


012106 


006000 




1982 


012110 


006001 




1983 


012112 


103410 




1984 








1985 


012114 


042700 


010000 


1986 


012120 


032700 


002000 


1987 


012124 


001412 




1988 


012126 


052700 


010000 


15?" 


OiSi?? 


00 040 7 




1990 








1991 


012134 


052700 


010000 


1992 


012140 


032700 


002000 


1993 


012144 


001402 




1994 


012146 


042700 


010000 


1995 








1996 


012152 


005302 




1997 


012154 


001354 




1998 


012156 


010037 


001162 


1999 


012162 


010137 


001160 


2000 


012166 


004737 


012256 


2001 


012172 


000002 
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» RETURN TO KERNEL MODE 



5EQ 0227 



000002 FTTK.I 



BIC 
RTI 



ll7000ei2tSP) 



ROUTINE TO C»LC NEXT RANDOM NUMBER, USES A 29 BIT SHIFT REGISTER 
ALGORITHM, EXCLUSIVELY OR-ING THE 28TH AND ISTCLOW ORDER) BITS 
INTO THE 29TH BIT AS IT SHIFTS RIGHT. SHIFTS 16 TIMES EACH TIME 
ITS CALLED. MODULES DO A RAND CALL THEN JUST REFERENCE RANNUM 
WHICH IS DEFINED AS GLOBAL IN DDXCOM 

jSAVE THE REGISTERS 

jGET UPPER BITS 

>GET LOWER ORDER 16 BITS 

JSHIFT 16 TIMES 

tSHlFT PO INTO CARRY 

•SHIFT CARRY INTO Rl, Rl INTO CARRY 

jFIRST HALF OF EX-OR PROCESS 

rASSUME OLD BIT 28 WAS ALSO CLEAR 
jCHECK THAT ASSUMPTION 
»BR IF RIGHT, ELSE 
jPUT BIT IN 



! ASSUME OLD BIT 28 WASN'T ALSO SET 

jCHECK THAT ASSUMPTION 

JBP IF RIGHT 

jELSE 2 I'S « A ZERO BIT 

(DONE 16 TIMES? 

jBP IF NO 

fSAVE CURRENT VSLUES 

•RESTORE REG'S 
(RETURN FROM TRAP CALL 



RAND.i 


JSP 


R4,SAV04 




MOV 


RANWRK,RO 




MOV 


RANNUM.Rl 




MOV 


»16.,R2 


RLOOPi 


ROR 


RO 




ROR 


Rl 




BCS 


It 




BTC 


#)0000,R0 




BIT 


«2000,R0 




BEO 


2t 




BIS 


ilOOOCPO 




9r 


:: 


IS! 


BIS 


tlOOOOjRO 




BIT 


•2000, RO 




BEQ 


2« 




BIC 


»10000,R0 


2«« 


DEC 


R2 




BNE 


PLOOP 




MOV 


RO.RANWRK 




MOV 


Rl.RAWNUM 




JSR 


PC,PST04 




RTI 
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?EG 5228 



2002 






20O3 






2004 






2005 






2006 






2007 






2008 


012174 


010046 


20O9 


012176 


O12S0O 


2010 


012200 


012046 


2011 


012202 


006216 


2012 


012204 


006216 


2013 


012206 


006216 


2014 


0122)0 


056216 


2015 


012212 


006216 


201 S 


0122H 


fl0«2l6 


2017 


012216 


042716 176000 


2018 


012222 


011660 000002 


2019 


012226 


012016 


20?0 


012230 


000316 


2021 


012232 


006216 


2022 


012234 


O0S21S 


2023 


012236 


052610 


2024 


012240 


OI2600 


2025 


012242 


000205 


202* 







iSUBPOUTINE TO GET PAGE ADDRESS FIELD VALi'E (TOP 12 BITS OF ADDRESS) 

(CALL VIAl 

I JSR R5,T0P12S 

I ADDRESS OF TABLE CONTAINING LOWER 16 BITS, TOP 2 BITS (SHIFTFO), 

I ANn SLOT FriR RETURNED VALUE OF ADDRESS 

(SAVE THE OLD VALUE OF PO 

(GET THE ADDRESS OF THE TABLE-PUT IT IN RO 

(FETCH THP ADDRESS TO BE ACTED ON TO THE STACK 

(ELIMINATE THE SIX LOW ORDER BITS. THIS ONE DROPS BTTO 

(THIS ROTATION DROPS BITl 

(THIS ROTATION DROPS BIT2 

(THIS POTATION DROPS BIT3 

jTHTS ROTATION DROPS BIT 4 

(AND THIS ROTATION DROPS BITS 

(ISOLATE iff; 12 HIGH ORDER BITS IN IHS LOWER 

(SAVE THE 12 HIGH ORDER BITS IN THE TABLE'S 3RD ENTBY 

(FETCH THE EXTENDED ADDRESS BITS FROM THE 2ND ENTRY 

(MOVE THE BITS TO BIT POSITIONS 6+7. FIRST, TO 8+9, 

(THEN MOVE THEM TO 7 + 8 

•riVSLL" ROTATE THEV TO 6 t 7 

(ADD THE EXTENDED ADDRESS BITS TO THE 3RD ENTRY 

(RESTORE THE OLD VALUE OF RO 

(RETURN TO THE CALLING PROCEDURE 



T0P12S( MflV 


RO,-CSP) 


MOV 


(R5)+,R0 


MOV 


(RO)+,-CSP) 


ASP 


rsp) 


ASR 


(SP) 


ASP 


(SP) 


ASR 


CSP) 


ASR 


(SP) 


ASR 


CSP) 


eic 


lineocctsF 


MOV 


CSP),2(P0) 


MOV 


{RO)+,(SP) 


SWAB 


(SP) 


ASR 


(SP) 


A *^° 


t en^ 




1. ^r J 


BIS 


(SP)+,(RO) 


MOV 


(SP)+,RO 


RTS 


R5 
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3037 






3038 






3039 


013344 


010346 


3030 


013346 


010346 


3031 


013350 


010146 


3033 


013353 


010046 


3033 


013354 


010407 


3034 






3035 






3036 






3037 


013356 


012604 


3036 


013360 


013600 


3039 


013363 


013601 


3040 


013364 


013603 


3041 


013366 


013603 


3043 


013370 


000304 
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tSkVE REGS 0*4 SUBROUTINE. (CALL VIA JSR R4iSAVQ4) 
SAV04t 



8E0 0339 



RST04I 



MOV 


R3.>(SP} 


(SAVE R3 


MOV 


B3,-tSP) 


(SAVE R3 


MOV 


R1,-(SP) 


{SAVE Rl 


MOV 


RO,-(SP) 


JSAVE RO 


MOV 


R4,PC 


»R4 IS ALREADY SAVED 


: REGS 


0>4 SUBROUTINE. 


(CALL VIA JSR PC.RST04 


MOV 


(SP)+.R4 


1 RETURN ADDRESS 


MOV 


(SPH.RO 


f RESTORE RO 


MOV 


(SP)+,R1 


»R1 


MOV 


tSP)+,P3 


fR3 


MOV 


(SP)t,R3 





J RESTORE R4 AMD RBTURN 
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3043 








3044 








3045 


ftl2372 


012700 


001006 


3046 


013376 


013101 


000140 


2047 


013303 


105020 




204B 


013304 


005301 




2049 


012306 


001375 




3050 


013310 


012700 


016606 


3051 


013314 


010037 


001074 


3053 


013330 


010037 


001076 


3053 


012324 


012737 


017116 001100 


3054 


012332 


012737 


017116 001102 


3055 


012340 


012701 


000764 


3056 


012344 


105020 




3057 


012346 


005301 




3058 


012350 


001375 




2059 


012352 


000207 
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iCIiEAR VARIABLES AND OUEIICS, AND t,n»D TRAP CATCHER STARTING AT 70 



Sf-Q 0230 



CIROUSJ HOV 
MOV 

1*1 CLRB 
DEC 
BNE 
MOV 
MOV 
MOV 
MOV 
HOV 
HOV 

2tl CLRB 
DEC 
BNG 
HT5 



*IOQUE,PO 

fTKS-IOQUEjRl 

(R0) + 

Rl 

II 

ITOOrRO 

R0,1001 

R0.IOQ2 

«TYPEQ,TYPQ1 

»TYPEQ,TYPQ? 

IIOQL+TYPOL.RI 

(RO)* 

Rl 

2S 

PC 



jCLEAP VARIABLES. 



INITIALIZE QUEUE POI'ITEPS 



JSET UP TO CLEAR QUe:UES. 



I DONE? 

J BR IF WOT. 
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SEQ 03Ii 



20fi0 






tofti 






2062 


012354 


012700 000072 


2063 


013360 


012701 000070 


so«« 


012364 


OS0021 


206S 


012366 


005021 


2066 


012370 


010100 


2067 


012372 


005720 


206S 


012374 


020027 001002 


2069 


012400 


001371 


2070 


012402 


000207 


2071 






2072 






2073 






2074 


012404 


010046 


2075 


012406 


016600 000002 


2076 


012412 


014000 


2077 


012414 


006300 


2078 


012416 


062700 001446 


2079 


012422 


020027 012516 


2OB0 


012426 


103002 


20$1 


012430 


011000 


20S2 


012432 


000200 


55*3 


"i2*?4 


ift^irtft n;422? 


2084 


012440 


104406 014620 


2085 


012444 


OOOOOO 


2086 




OUOOO 


2087 




OOOOOO 


20R8 


012446 




20B9 


012446 




2090 


012446 


00?030 


2091 


012450 




2092 


012450 


005470 


2093 


012452 




2094 


012452 


005324 


2095 


012454 




2096 


012454 


005324 


2097 


012456 




2098 


012456 


005250 


2099 


012460 




2100 


012460 


005250 


2iOx 


012462 




2102 


012462 


005336 


2103 


012464 




2104 


012464 


005460 


2105 


012466 




2106 


012466 


005250 


2107 


012470 




210S 


012470 


005324 


2109 


012472 




2110 


012472 


013646 


21U 


012474 




2112 


012474 


013770 


2113 


012*76 




2114 


012476 


006626 


2115 


012500 





(LOAD TSAPCATCHER IV VECTOR AREA 



CLRVECI HOV 
MOV 

It I MOV 
CLR 
MOV 
TST 
CMP 
BME 
STS 



•72. RO 

»70,Rl 

R09(Rl)+ 

(Pl) + 

Rl.RO 

(Pe) + 

PO, 41002 

18 

PC 



tFlLL VECTOR AREA WITH ,+2 
J AND HALT. 



iriLLED UP? 
jBR ir NOT, 
>yES. EXIT. 



iTRAP IMTERPRETER ROUTINE. 

TRPINTI MOV PO,-CSP) jPUSH RO, 

MOV 2(SP3.RO jGET TRAP PC. 

-CROJ.RO iGET TRAP CALL, 

RO jMULTIPliY BY 2, 
tTRPTAB-TPP2»R0 jTOBM TABLE ADDRESS 

RO.ITRPLIH fWITHIN LIMITS? 



TRPTABI 



MOV 

ASL 

ADO 

CMP 

SHtS 

MOV 

RTS RO 

"S5sr IN"?" 

HSGI.HLT 

HALT 

TPPa«11000 

TRAPXaO 



it 
»RO>RO 



jBR IF NOT, 

(SET ROUTINE ADDRESS 

1 00 TO ROUTINE, RESTORE RO, 



I 'HALT' 



TPPDEF EXITS, EXIT, 

EXIT, 

TPPOEF QUES.QUE, 

QUE, 

TPPDEF ENPPSt.TYPQ, 

TYPO, 

TBPDEF ENDS, TYPO, 

TYPQ, 

TPPDEF ERRORS, TyPQ2. 

TYPQ2, 

TRPDEF DATERS,TYPQ2, 

TYP02, 

TPPOer M5G$,TYPQ1, 

TYPQl. 

TRPDEF BREAKS, LDBRK, 

LD8RK, 

TRPDEF ERRNS,TYP02, 

TYP02, 

TRPDEF MSGNS,TYPQ, 

TYPO, 

TRPDEF GWBUFS,GWBUF, 

GWPUF, 

TRPDEF GETPAS.GETPA, 

GETPA, 

TRPDEF CDATAS.CDSTA. 

CDATA. 

TPPDEF MAP22S,MAP2?, 



(POINTER FOR TRAP CALL EXITS 

I POINTER FOR TRAP CALL QUES 

jPOINTEP FOR TRAP CALL FNDPS8 

jPOINTER FOR TRAP CALL ENDS 

(POINTER FOR TRAP CALL ERRORS 

(POINTER FOR TRAP CALL DATERS 

jPOINTER FOP TRAP CALL MSGS 

[POINTER FOP TRAP CALL BREAKS 

SPOINTEP FOR TRAP C»LL ERRNS 

jPOINTF-P FOR TRAP CALL M5GNJ 

(POINTER FOR TRAP CALL GWBUFS 

(POINTER FOR TRAP CALL GETPAS 

jPOINTER FOP TRAP CALL COATAS 



QAED DEC/X11 SHORT HONITOP 
DXOABM.PU 21-APP-77 12(42 



MACYll 27(1006) 22-APP-77 12i53 PAGE 79 



2116 


012500 


014012 


2117 


012502 




2118 


012502 


005324 


2119 


012504 




2120 


012504 


006616 


2121 


012506 




2122 


012506 


012066 


2133 


012510 




2174 


012510 


005150 


2125 


012512 




2126 


012512 


005102 


2127 


0125K 




2128 


012514 


012056 


n?® 


OTT^I* 





MAP22, 

TPPDEF MSGS$,TYPO, 

TYPQ. 

TRPDEF DATCKS.OATCK, 

DATCK, 

TRPDEF RANDS, RAND, 

RAND. 

TRPDEF DERRX8, TYPOS, 

TYPOS, 

TRPDEF MSGDS,TYPQ4. 

TYP04, 

TRPDEF RTTKS.RTTK. 

RTTK, 



(POINTER FOR TRAP CALL MAP22S 

(POINTER FOR TRAP CALL MSGS8 

(POINTER FOP TRAP CALL DATCKS 

jPOINTER FOR TRAP CALL RANDS 

(POINTER FOR TRAP CALL DEPRXS 

(POINTER FOR TRAP CALL MSGDS 

(POINTER FOP TRAP CALL PTTKS 



SEQ 0232 



UM(,a OCC/Xll SHORT MONITOR 
OXQ»BM.PH 21»»PP-77 12I4J 













































012316 


012746 


000004 




012523 


000402 






012524 


013746 


000010 




012930 


000340 






012533 


010605 






012S34 


012706 


016606 




012S40 


012546 






012542 


010546 






012544 


016546 


000002 




012550 


011546 






012552 


013706 


016546 




012556 


004737 


006230 




012562 


105337 


001244 




012566 


013706 


016576 




012572 


005037 


001060 




012576 


112737 


000001 




012604 


104406 


014512 




012610 


013705 


011000 




012614 


004715 






012616 


004715 






012630 


004715 






012622 


004715 












3158 


012624 


013706 


016546 


31S9 


012630 


104406 


014132 


3160 


012634 


000436 





HACYll . .*J06) 2a-APR-77 12|S3 PAGE 79 

IBUS ERROR AND PESERVED INSTRUCTIOM TRAP ROUTINES 

iCHECK MODE BITS Or PSW OK STACK (MAYBE USER IE KTll IN USE) 

lOROEB or ARGUMENTS! VIRTUAL PC ON STACK, PSW ON STACK, STACK POINTER 

lAFTEP TRAP, VIRTUAL ADDRESS TRAPPED TO 

(INDICATE BUS ERROR TRAP, 

» INDICATE RESERVED INSTRUCTION TRAP, 

iSAVE THE STACK POINTER. 

jPUT INFORMATION INTO SPECIAL MONITOR STACK 

•PUSH TRAP VECTOR ON STACK 

jPUSH STACK POIITER ON STACK 

jPUSH THE PSW 0^ STACK 

IPUSH THE PC ON STACK 

iRESTOPF MONITOR STACK POINTER 

(CLEAR QUEUES, CLEAN' UP, MAP TO BANK," O+I 

(COUNT A SYSTEM ERROR 

(SETUP SPECIAL STACK POINTER 

(ALLOW TYPING 

(PREVENT MODULE STARTUP DURING MESSAGE 

(TYPE SYS ERROR FAILURE. 

(TYPE ERR PC. 

(TYPE EPP PSW. 

(TYPE SP AFTER ERROR 

(TYPE TRAP VECTOR ADDRESS 

(RESTORE MONITOR STACK POINTER 
(TYPE CRLF AND DOT 
(ATTEMPT TO CONTINUE 



SEO 0233 



BUSEPRi 


MOV 


»4,-CSP5 




BP 


RESIA 


RESINTJ 


MOV 


110, -tSP) 


RESIAi 


NOP 






MOV 


8P,R5 




MOV 


ISPSPEC.SP 




MOV 


CR5)+,-CSPj 




MOV 


P5,-CSP) 




MOV 


3CP5),-CSP) 




MOV 


(RS)»-(SP) 




MOV 


•SPBOT,SP 




JSR 


PCCTRLX 




INCB 


SYSCNT 




MOV 


iSPSPEC-lO.SP 




CLR 


lOBKID 




MOVB 


#1, BRAKE 




MSGS, 


SYSERR 




MOV 


»IT0A,P5 




JSR 


PC, (PS) 




JSR 


PC,(R5) 




JSR 


PC, CBS) 




JSR 


PC, CBS) 



MOV «SPPOT,SP 

MSGS, DOT 

BR PWRUA 



QAED OEC/Xn SHORT MOHITOR 
DXOABM.PU 31-APP-77 12(42 
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3161 








2162 










012636 








012636 


012737 


012646 




012644 


000000 






Q12A46 


013737 


012636 




013654 


012706 


016546 




012660 


005237 


001246 




012664 


105037 


001274 




012670 


004737 


006230 




012674 


005037 


001060 




012700 


112737 


000001 




012706 


104406 


014554 




012712 








012712 


105737 


001257 




012716 


001021 




2177 


012720 


000400 





seo 0234 



(POWER DOWN AND POWER IIP ROUTINES. 



PWRDN( 






Itt 


MOV 
HALT 


«PWPUP,PWPFV 


PWBUP( 


MOV 


»PWRDN,PWRFV 




MOV 


«SPB0T,P6 




INC 


P»IPCNT 




CLRP 


RUNPFL 




JSP 


PC.CTPLX 




CLP 


lOBKID 




MOVB 


#1, BRAKE 




MSG«, 


PWRFAI 


PWRUA( 






3S! 


TSTB 


RW-ODE 




BNE 


LOGICA 




BR 


CHNOUT 



(SET UP pn*EP UP VECTOR. 

(POWER DOWN HALT 

(SET up POWFP DOWN VECTOR, 

(RESET STACK. 

(COUNT A POWER FAIL 

(CLEARRCSUME RU*" FLAG 

(CLEAR OUEUFS A«P IHTIALIZE "Til IF in USE. 

(ALLOW TYPING 

(PREVENT MODULE STARTUP 

(TYPE POWER FAILURE MESSAGE. 

(WERE WF l» RUN MODE? 
(8R IF YES TO RESTART. 
(NO, CONTINUE 



OAID DEC/Xll SHORT MONITOR 
DXQABM.PIl 21-APR-77 12|42 



2178 








2179 








2180 








2181 


012722 


105737 


001280 


2182 


012726 


100402 




3183 


013730 


000137 


0Q7364 


3184 


013734 


105737 


001253 


218S 


O13740 


001403 




2186 


013742 


005037 


177573 


2187 


012746 


013700 


000043 


2188 


0127S3 


004710 




2189 


013754 


000340 


000240 


2190 


013762 






3191 


013762 


105737 


001360 


2192 


013766 


001402 




2193 


013770 


000137 


001414 


2194 


01377* 


OO0137 


007476 



MACyll 37(1006) 23>APR«77 12iS3 PASG 81 



JBOUTINE TO EXIT TO CHAIN MONITOR, OP RETURN TO KYBD RTN, 
{PROGRAM SHOULD ALHAYS BE IN SANK BY HERE 



SEQ 0315 



000240 



CHNOUTI 


TSTB 


CHN 


!IN CHAIN MODE? 




BMI 


18 


>BR IE YES, 




JMp 


eOMCON 


iBACK TO KYBD SERVICE 


Itl 


TSTB 


KIPPCS 






BEO 


31 


iBHANCH ir NO KTll 




CtR 


"iSSPO 


STUPN QWf KTll 


2>l 


MOV 


42, RO 




LOGIC 1 


JSR 


PCCRO) 


jRETURN TO MONITOR, 




.WORD 


NOP, NOP, NOP 




LOSICAi 








SSI 


TSTB 


CHN 






BEQ 


6fi 






JMP 


START 




6ii 


JMp 


RUNRES 





OAEO DEC/X11 SHORT MONITOR 
DXOABM.Pll 21-APP-77 12«43 



3195 
2196 
3197 
3198 
2199 
2300 
2301 
3202 
3203 
3304 
3305 
3206 
3207 
3208 
3209 
2210 
2211 
2313 
3313 
3314 
4<9« ■ 
3216 
3217 
2218 
2219 
2220 
2231 
2323 
3223 
2224 
2225 
2236 
3227 
3338 
3329 
3230 
2331 
3333 
3233 
2234 
2235 
3236 
2237 
2338 
3239 
2240 
2241 
2242 
2343 
2244 
2345 
3246 
2347 
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iSUBROUTIHE TO ROTATE WRITE BUFFERS IF POTI IMDICATOR "l. 



SEO 0216 



013000 
013004 
013006 
013012 
013014 
013020 
013022 
013026 
013030 
013034 
013036 
013042 

onoSo 

013054 
013056 
013062 
013064 
013070 
"13073 
013076 
013102 
013106 
OlJllO 
013114 
013116 
013122 
013124 
013132 
013140 
013144 
013152 
013160 
013166 
013170 
013174 
013176 
013303 
013304 
013310 
013312 
013316 
013224 
013226 
013234 
013236 
013244 
013350 
013252 
013256 



105737 
001525 
105737 
100016 
105737 
001013 
005337 
003114 
105737 
001002 
105237 
013737 
105737 
oniioi 

105737 
100476 
105737 
100473 
A4 374$ 
042716 
033736 
003016 
105737 
001403 
105^37 
001056 
113737 
113737 
105137 
023737 
062737 
033737 
103417 
105737 
001436 
105737 
001033 
105737 
001003 
105237 
162737 
000415 
063737 
103O03 
063737 
004737 
000403 
004737 
000400 



000030 
010166 



001364 lOSJ 

Hi 



001261 

001262 

001275 

001264 

001320 

001024 
001266 

001024 

001262 
001021 



160000 
016000 

00102i 

001302 

001022 

001031 
001023 
001216 

000020 
001216 

001363 

001375 

001330 

001034 

000030 001216 l«i 

002000 001212 R0TB21 

001214 



001031 3«t 
001303 

001222 3il 

001216 

001206 



ROTBll 



Itl 

R0TB3I 



TSTB 

BEQ 

TSTB 

BPL 

TSTB 

BVE 

DEC 

BGT 

TSTB 

BNE 

INC9 

MOV 

TSTB 

B»iE 

TSTB 

BMI 

TSTB 

BMI 

MOV 

BIG 

CMP 

BGT 

TSTB 

BEO 

DECB 

B'JE 

HOVB 

MOVB 

COMB 

CMP 

ADD 

CMP 

BLO 

TSTB 

BEQ 

TSTB 

BNE 

TSTB 

BNE 

INCB 

SUB 

BR 

ADO 

BCC 

ADD 

JSR 

BR 

JSR 

BR 



013260 000207 



ROTXTl RTS 



ROTI 

ROTXT 

ROTL 

IS 

LOCK 

li 

POTCNT 

ROTXT 

NSTOP 

lOS 

STOP 

ROTNUH, POTCNT 

ST01P 

ROTXT 

POTL 

ROTXT 

MDXCTR 

ROTXT 

«160000,"CSP) 

116000, (SP)+ 

3t 

MDXCTR 

2S 

8GWBFC 

ROTXT 

MDXCNT, MDXCTR 

ROTCT,»GWBrC 

WBFLG 

WBUF12tOFFSET 

• 20,ViBUF12 

WBUF12,HCOR12 

R0TB2 

RELOC 

R0IB3 

LOCK 

R0TB3 

NSTOP 

It 

STOP 

I30,WBUF13 

ROTXT 

13000, WBUF 

It 

•30,WBrEA 

PC.SETHBl 

ROTXT 

PC.SETNBF 

POTXT 

PC 



jROTATION ALLOWED? 

;BR IF MOT. 

;IS ROTATTON LOCKED ? 

;N0, CONTINUE 

jYES, IS THE PROGRAM LOCKED ? 

jYES, DON'T SET STOP 

»N0, TIME TO RELOCATE 7 

jNO, COMTTNUE 

J ALLOW STOP TO SET ? 

[NO, CONTINUE 

jYES, SFT THE STOP FLAG 

jRESTORE THE COUNTER 

;If STOP TS SET, "OV'T POTRTE 

;ROTATE LOCKED? 

SPR IF YES 

;IF COUNTER NOT INITIALIZED, DON'T ROTATE 

• rHBTW riiRBPMT wiTrir 



:IF NOT LAST IN BANK, BRANCH 

>HAVE ALL MODULES USED A VALUE IN THIS BANK? 

lYES- TIME TO CHANGE BANKS 

;N0, DEC TIMEOUT COUNTER 

)FXIT UNLESS TIMEOUT HAS OCCURRED 

•RESET COUNTERS 

iTOGGLE INDICATOR 
(LOCORE ROTATION? 

»CHECK FOB TOP OF WRITE BUFFER AREA 

>ir NOT, BRANCH 

(RELOCATION ALLOWED? 

iNQ. BRANCH 

t LOCKED? 

I YES- BRANCH 

I ALLOW STOP TO SET ? 

|NQ, CONTINUE 

jYES, SET STOP 

I RESTORE WBUF 

jEXIT 

jBUMp ADDR- POINT 5l3 WORDS HIGHER 



jCALCULATE HXWBF 

I RETURN 
(RETURN 



SUED DEC/Xn SHORT MONITOR 
DXQABM.Pll 31«kPP-77 13143 



3341 








3349 








33S0 








33S1 








33S3 


013363 


105737 


001303 


33S3 


013366 


001406 




33S4 


013370 


104406 


016061 


33SS 


013374 


104406 


014576 


33S6 


013300 


105037 


001303 


3357 


013304 


105737 


001361 


33SS 


013310 


001444 




3399 


013313 


104406 


014630 


3360 


013316 


013746 


001300 


3361 


013333 


004737 


011000 


3363 


013336 


005037 


001130 


3363 


013333 


013737 


001306 00U16 


3364 


013340 


006337 


001116 


3365 


013344 


006337 


001116 


3366 


013350 


006337 


001116 


3367 


013354 


006337 


001116 


3268 


013360 


006337 


001116 


3369 


013364 


006337 


001116 


3370 


013370 


163737 


000003 001116 


3371 


013376 


103003 




3373 


013400 


163737 


000030 OO1120 


3373 


013406 


013746 


001U6 


3374 


013413 


013746 


001130 


3375 


013416 


004737 


010710 


3376 








3377 


013433 


000307 
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iSUBROUTINE TO CHPCK ir BUPrER ROTATION ENABLED, AND TO TYPE 
■THE ROTATION RANGE, 

jANY MEMORY EPR0RS7 
IKQ- BRANCH 



(ROTATE ENABLED? 
iBfl ir NOT. 



SEQ 0237 



ROTCHKi 


TSTB 


MEMERF 




BEQ 


11 




MSCt 


MERRl 




MSGSi 


MEMCHO 




CI-BB 


MEMERF 


i«i 


TSTB 


ROTl 




BEO 


3( 




MSGt, 


ROTENB 




MOV 


LOCORE,-tSP) 




JSR 


PC.ITOA 




CLR 


SAVHI 




MOV 


HC0R12,SAVL0 




ASIi 


SAVLO 




ASL 


SAVLO 




ASt. 


SAVLO 




ASL 


SAVIO 




ASL 


SAVLO 




ASL 


SAVLO 




SUB 


*3, SAVLO 




BCC 


3« 




SUB 


#20. SAVHI 


311 


MOV 


SAVLO, -(SP) 




MOV 


SAVHI, -(SP) 




JSR 


PCITOAX 



ITYPE LOWER LIMIT. 

tZERO ANY HIGH ORDER BITS 

iCOPY INTO LOW ORDER BITS 

JMAKE IT A 16-BIT NUMBER 



(TYPE UPPER LIMIT 



lEXIT. 



004437 
016600 
010003 
005723 
017000 
017303 
005001 
005003 



012344 
000013 



000000 
000000 



022700 007020 
101013 



007020 



OAED DCC/Xll SHORT MONITOR 
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2278 

2379 

3280 

3381 

3282 

3383 

3384 

2385 

3386 

3287 

3288 013424 

2289 013430 

3290 013434 

2291 013436 

2293 013440 

2293 013444 

3294 013450 

2295 013453 

2296 

2297 013454 

2298 013460 

2299 013463 

2300 013466 
3301 013470 
3302 

3303 913473 

3304 013476 
3309 013S00 

3306 013904 

3307 013S06 
3308 

3309 013S10 

3310 013513 

3311 013514 
3313 013S30 

3313 013534 

3314 013S26 
3315 

3316 613530 

3317 013532 

3318 013936 

3319 013540 
3330 013946 
2331 613954 
3323 013956 

3333 013563 

3334 013964 
3339 013573 
3I3S 013574 

3337 013600 

3338 013602 
3339 

3330 Q13610 

3331 013614 
3333 013630 
3333 



162700 
005203 
000771 

032700 
101014 
163700 
005301 
000771 

005703 
001767 
062702 
063700 
005303 
000752 



000031 
010360 



010346 

004537 

015507 

113737 

013737 

010146 

004537 

015507 

013737 015513 

010046 

004537 

015507 

013737 



011744 



015511 
015513 



011744 
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1 THIS ROUTINE WILL CONVERT THE GIVEN BINARY 

jNUMBER INTO HOURS, MINUTES, AND SECONDS. LOCATIONS 

I HOLDING THE FINAL NUMBERS WILL BE TAGGED aSl HOURS, 

iHINITS, AND SEKNDS. HOURS MUST BE ON AN ODD 90UNDAPY. 

jMINITS AND SEKNDS ""UST BE ON EVEN ROUNDAPIF-S, 

(TEMPORARY LOCATION HOLDS MUST BE ON AN ODD BOUNDARY, 

( CALL VIA« JSR PCH^-S 

• ADR (ADDRESS OF THE TIME 

» ADRX (ADDRESS OF EXTENDED TIME BITS 



HMSi 



001353 
001354 



001356 



011744 

015513 001360 



004737 013356 
062716 000004 
000207 



JSR 


R4,SAV04 


MOV 


10.(SP),BO 


MOV 


R0,R3 


TST 


(P3) + 


MOV 


a(P0),R0 


MOV 


«(R3),R3 


CLR 


PI 


CLR 


R2 


CMP 


*3600.,R0 


BHI 


3t 


SUB 


#3600. ,P0 


INC 


R2 


BR 


1( 


CMP 


160. ,R0 


BHI 


4( 


SUB 


160. ,R0 


INC 


Rl 


BR 


21 


TST 


R3 


BEO 


2* 


ADD 


«17.»P2 


ADO 


#4336. ,R0 


DEC 


R3 


BR 


IS 


MOV 


P2,-CSP) 


JSR 


RS,BDCNV 


HOLDS 




MOVB 


H0LD5+2, HOURS 


MOV 


HOLD5+3,HOURS+l 


MOV 


R1,-(SP) 


JSR 


RS.BDCNV 


HOLDS 




MOV 


HOLD5+3,MINITS 


MOV 


RO,-(SP) 


JSR 


RS.BDCNV 


HOLDS 




MOV 


HOLDS+S, SEKNDS 


JSR 


PC,RST04 


ADD 


t4,(SP) 


RIS 


PC 



(SAVE REGS. 0-4 

(GET ADP OF OF ADR TIME 

(COPY IT INTO REG, 3 

(GET ADR or EXTENDED TIME BITS ADP 

(PUT THE TIME IN REG. 

(PUT EXTENDED TIME BITS INTO PEG. 3 

(ZERO MINUTES COUNTEP 

(ZERO HOURS COUNTER 

(LESS THAN 1 H0UP7 

(YES, GO LOOK FOR MORE HOURS 

(NO, SUBTRACT 1 HOUO'S WORTH OF SECONDS 

(COUNT AN HOUR 

(CHECK FOR MORE HOOPS 

(LESS THAN 1 MINUTE? 

(YES, ALL DONE 

(HO, SUBTRACT 1 MINUTE'S WORTH OF SECONDS 

(COUNT A MINUTE 

(CHECK FOR MORE MINUTES 

(AKY EXTENDED TIME PITS ? 

(NO, GO LOOK FOR MINUTES 

(YES, ADO IN 17, HOURS 

(ADO IN 1 HP 12 HIN 16 SEC 

(GET RIO OF ONE TIME EXTENDED BIT 

(CONTINUE 

(PUT THE HOURS ON THE STACK 

(CONVERT IT TO ASCII 

(AND PUT IT HERE 

(LOAD HOURS 

(LOAD HOURS 

(PUT THE MINUTES ON THE STACK 

(CONVERT IT TO ASCII 

(AND PUT IT HERE 

(LOAD MINUTES 

(PUT THE SECONDS ON THE STACK 

(CONVERT IT TO ASCII 

(AND PUT IT HERE 

(LOAD SECONDS 

(RESTORE REGS 0-4 
(SET PROPER RETURN PC 
(AND RETURN 
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SEQ 03)9 



2334 








2333 








2336 








2337 








2338 


013622 


013706 


001136 


2339 


013626 


005046 




2340 


013630 


012746 


013636 


234S 


6l3«34 


000002 




2342 


013636 


005037 


001374 


2343 


013642 


000137 


004S50 



THIS IS THE CALLING SEQUENCE FOP THE CKHUNG ROUTINE 

SRESTORE MONITOR STACK POINTER 

jCLEAP PSH ON STACK 

J SETUP RETURN PC 

iLOAD NEW PSW AND CONTINUE 

J INDICATE NO MODULES DOING EOP 

jGO CHECK rOP OTHER MODULES PUNNING 



MOV 


SPS»V,SP 


CLP 


"(SP) 


MOV 


CII.-CSP) 


PTI 




CLR 


CSTABT 


JMP 


ENDSVG 
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SEG 0240 



2344 








2345 








2346 


013646 


010146 




2347 


013650 


010246 




2349 


013652 


017601 


000004 


2349 


013656 


010102 




2350 


013660 


062701 


000074 


2351 


013664 


013721 


001212 


2352 


013670 


013721 


001214 


2353 


013674 


012111 




2354 


013676 


021137 


001236 


2355 


013702 


101402 




2356 


013704 


013711 


001236 


tm 


nil^tfi 


f'0971-' 


001021 


2359 


011714 


1O0410 




2359 


013716 


126237 


000005 


2360 


013724 


001404 




2361 


013726 


105162 


000005 


2362 


013732 


105337 


001021 


3363 


013736 


012602 




2364 


013740 


012601 




2365 


013742 


062716 


000002 


2366 


013746 


105337 


001035 


2367 


013752 


100005 




2368 


013754 


113737 


001305 


2369 


013762 


004737 


013000 


2370 


013766 


000002 




2371 








2372 








2373 








2374 


013770 


010146 




2375 


013772 


017601 


000002 


2376 


013776 


012121 




2377 


014000 


005011 




2379 


014002 


012601 




2379 


014004 


062716 


000002 


2390 


014010 


000002 




2381 








2382 









iGET WRITE BUrFER ADDRESS SERVICE 



001023 



001035 



GWBUF.I MOV 
MOV 
MOV 

MOV 

ADD 

MOV 

MOV 

MOV 

CMP 

BLOS 

MOV 

i«t Tare 

BVl 

CMPB 

BED 

COMB 

DECS 

2*1 MOV 
MOV 
ADD 
DECS 
BPL 
MOVB 
JSR 

3U PTI 



GETPA.i MOV 
MOV 
MOV 
CLR 
MOV 
ADD 
PTI 



R1,-CSP) 
R2,-CSP) 
a4(SP),P1 

tWBUFPA,Ri 

WBUF,(Rn + 

WBFEA,CRn + 

(Pl) + ,{Rn 

CRD/MXWBF 

it 

MXWBF.CPl) 

MDXCTP 

2> 

XrLAGC2).WBFLG 

2« 

XFLAG(2) 

MDXCTR 

(SP)+.P2 

(SP)+,R1 

#2,(SP) 

POT 

3t 

POTNiPOT 

PC.POTBUF 



Rl.-CSP) 

»2CSP),R1 

(Rl) + »(Rn + 

(PI) 

(SP)+,R1 

t2,(SP) 



jSAVE REGISTER 

»GET ADDRF.SS OF MODULE 



fLOAD ADDRESS OF WRITE BUFFER 

iLOAD EXTENDED ADDRESS BITS 

jMOVE SIZE REQUESTED INTO SIZE ALLOWED 

IPEQUESTED SIZE OK? 

jYES- BRANCH 

jNO. SET ALLOWED SIZE 

Tir NOT YPT SETUP, 9«IP 

»IF SAME, HAS ALREADY USED THIS BANK 

(IF NOT, SET FLAG TO SAME 
jAND COUNT DOWN MODULES 
(RESTORE REGISTERS 

•SETUP RETURN PC 



(GO CHANGE WRITE BUFFER ADDRESS 
1 RETURN 



jSAVE RFG. 1 

jGET ADDRESS OF TABLE 

jCOPY VA INTO PA 

iCLEAR EA BITS 

(RESTORE REG. 1 

(SETUP RETURN PC 

(RETURN 
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014012 


010146 






014014 


017601 


000002 




014020 


012161 


000002 




014024 


011161 


000004 




O14O30 


006261 


000004 




014034 


006261 


000004 




014040 


006261 


000004 




014044 


006261 


000004 




014050 


012601 






014052 


062716 


000002 




014056 


000002 






014060 


000207 
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jTHIS POUTINE ALLOWS RH70 DEVICES TO BE RUN WITH THE STANDARD MONITOR, 



tSAVE REG. 1 

J GET THE 1ST ADDRESS OF THE TABLE 

jGIVE BACK THE SAME 18 BITS 

jTHAT WERE GIVEM TO BE CONVERTED 

JSHIFT BACK FROM POSITIONS 4 AND 5 

»T0 POSITIONS AND 1 

J 

> 

tPESTQRE REG. 1 

jSKIP OVER VA TO GET THE RETURN PC 

I RETURN 

(DO NOTHING 



SEQ 0241 



HAP22.J MOV 


R1,-CSP3 


MOV 


»2(SP),P1 


MOV 


(PO + .2fRn 


MOV 


(Rl)f4CRn 


ASR 


4(R1) 


ASR 


4(R1} 


ASR 


4(R1) 


ASR 


4(Rn 


HOV 


(SP)+,Pl 


ADD 


12, (SP) 


RTI 




MVCODEl RTS 


PC 
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2398 










2399 










2400 


014062 


042045 


041505 


054057 


3401 


014070 


030461 


020056 


054104 


2402 


O14076 


040521 


076505 


020104 


2403 


014)04 


044123 


051117 


020124 


2404 


014112 


047515 


044516 


047524 


2405 


014120 


00012? 






2406 


014122 


027045 


000 




2407 


014125 


045 


000 




240S 


014127 


045 


000045 




2409 


014132 


040440 


000124 




2410 


014136 


051045 


047125 


051440 


2411 


014144 


046525 


040515 


054522 


2412 


014152 


000 






2413 




014155 






3414 


014153 


136 


022503 


000 


2415 


014157 


045 


020045 


052521 


2416 


014164 


052505 


020105 


053117 


S417 


014172 


051105 


046106 


053517 


3418 


014200 


026440 


026455 


051440 


2419 


014306 


051531 


042524 


020115 


3420 


014214 


051103 


051501 


022510 


2421 


014222 


000 






2432 


014223 


045 


020045 


047111 


2433 


014230 


040526 


044514 


020104 


2434 


014236 


051124 


050101 


041440 


3435 


014344 


046101 


020114 


026455 


2436 


014252 


020055 


054523 


052123 


2427 


014260 


046505 


041440 


040522 


2428 


014266 


044123 


000045 




3439 


014272 


041045 


042101 


041440 


3430 


014300 


043115 


000045 




2431 


014104 


041445 


052116 


020114 


2433 


014312 


020103 


047117 


054514 


2433 


014320 


000045 






2434 


014322 


047045 


020117 


052113 


2435 


014330 


030461 


000045 




3436 


014334 


047045 


020117 


052113 


3437 


014342 


030461 


000045 




3438 


014346 


047045 


020117 


047515 


2439 


014354 


051504 


051440 


046105 


3440 


014362 


000045 






3441 


014364 


041045 


043101 


040440 


2443 


014372 


051104 


042057 


053101 


3443 


014400 


033501 


000 




2444 


014403 


045 


040502 


030104 


3445 


014410 


040516 


042515 


000045 


2446 


014416 


045445 


052502 


030106 


2447 


014424 


043117 


047514 


000 


2448 


014431 


045 


052045 


020117 


2449 


014436 


054105 


051105 


044503 


2490 


014444 


043533 


046040 


040517 


34B1 


014452 


030104 


043515 


044504 


3453 


014460 


046S25 


054440 


052517 


2453 


014466 


046440 


051525 


030134 
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(PURE MESSAGES 

TITLEl .ASCIZ '*DFC/XJ1, DXOAE-D SHORT HOMITOR* 



SFC 02*2 



DOTi .ASCIZ 

CRj .ASCIZ 

CRCPJ .ASCIZ 

AATj .ASCIZ 

SUHARVj .ASCIZ 



' AT' 

'%RUN SUMMARY' 



ACRLF«,+2 
CTPLCl .ASCIZ "CI' 
OOVRFLi .&SC1Z '*% QUEUE OVERFLOW 



— SYSTEM C0A5H«< 



INVTRPt .ASCIZ •%* INVALID TRAP CALL — SYSTE^'' CR»SH%' 



INVCMDl .ASCIZ '*BAD CMD%' 

INVCDIJ .ASCIZ '%CNTL C ONLY*' 

INVC02i .ASCIZ '%N0 KT11%' 

IMVCD3i .ASCIZ 'INO KT11%' 

INVC04i .ASCIZ '%N0 MODS SEL%' 

INVADRi .ASCIZ 'tBAD ADR/DATA%' 

INVNAHi .ASCIZ '%BAD NAME%' 

KBOFLOi .ASCIZ '*KBUr OFLO* 

CLR40i .ASCIZ •%%T0 EXERCISE LOAD MEDIUM YOU »VS1 CLEAR LOC 40%' 



»bu OEC/Xll SHORT MONITOR 
DXOIBM.Pll 21-APR-7T 12142 
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Seo 0243 



24S4 


014474 


046103 


040505 


020122 




2455 


014502 


047514 


020103 


030064 




243S 


014310 


000045 








2457 


014512 


051445 


051531 


042440 


SYSEPRi 


2458 


014520 


051122 


024040 


044526 




2459 


014526 


052122 


050056 


026103 




2460 


014534 


051520 


026127 


050123 




2461 


014542 


053054 


041505 


024524 




2462 


014550 


020072 


000040 






2463 


014554 


022445 


047520 


042527 


PWRFAli 


2464 


014562 


020122 


040506 


046111 




2465 


014570 


051125 


022505 


000045 




2466 


014576 


051045 


047125 


046440 


MEMCHGl 


246? 


014604 


046505 


051117 


020131 




2468 


014612 


042524 


052123 


000123 




2469 


014620 


044045 


046101 


022524 


HliTl 


2470 


014636 


000045 









.ASCIZ •%S¥S ERR { VIPT.PC.PSW.SP, VECT) t 



.ASCIZ '*%POWER FAILURE%%' 



•ASCI? '%PUN MEMORY TESTS' 



.ASCIZ '*H»LT%%' 
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SEQ 0244 



2471 


01*630 


053445 


044522 


042524 


POTENBJ 


2472 


014636 


041040 


043125 


042506 




2473 


014644 


020122 


047522 


040524 




2474 


014652 


044524 


047117 


042440 




2475 


014660 


040516 


046102 


042105 




2476 


014666 


020056 


040522 


043516 




2477 


014674 


035105 


000040 






2478 












2479 


014700 


053445 


044522 


042524 


ROTDlSt 


2480 


014706 


041040 


043125 


042506 




2481 


0147)4 


020122 


047522 


040524 




2482 


014722 


044524 


047117 


042040 




2483 


014730 


051511 


041101 


042514 




2484 


014736 


000104 








24M 


014-'40 


n45«45 


030524 


090061 


KTOHMj 


2486 


014746 


047105 


041101 


042514 




2487 


014754 


000104 








2488 


014756 


05144S 


044527 


041524 


NOSWRi 


2489 


014764 


020110 


042522 


044507 




2400 


014772 


012123 


051105 


040440 




2491 


015000 


020124 


047514 


027103 




2492 


015006 


030440 


030060 


022464 




2493 


01501* 


000 








2494 




015016 









'*WPITE BUFFER ROTATION EVABLED. RA'lGEl 



.ASCIZ 'ItWPlTF BUFFER POTATION OISAHLET 



."SCTZ •tKTll FNABIFD' 



.ASCIZ •%SWITCW PEGISTER AT LOC. 1004%' 



OACD SBC/Xll SHORT HOHITOR 
DXOABM.Pii 3t>API««?7 13143 
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3495 










3496 










3497 


015016 


004437 


013244 




3491 


015023 


013703 


001304 




3499 


015036 


063703 


001333 




3500 


015033 


033703 


001306 




3501 


015036 


001435 






3503 


015040 


013700 


001300 




3503 


015044 


012704 


015133 




3504 


015050 


105737 


001252 




3505 


015054 


001404 






3506 


015056 


012700 


040000 




3507 


915063 


010237 


173344 




9508 


015066 


013703 


000400 




3509 


015073 


011430 






3510 


015074 


005303 






3511 


015076 


001375 






3513 


015100 


063702 


000010 




3513 


015104 


020237 


001206 




3514 


015110 


002403 






3515 


015113 


C04737 


012256 




2516 


015116 


000207 






2517 


015120 


005724 






2518 


015132 


020427 


015232 




3519 


015126 


103750 






2530 


015130 


000745 






2521 










2522 


015132 


177776 


000001 


177775 


2523 


015140 


000002 


177773 


000004 


3534 


015146 


177767 


000010 




3525 


015152 


177757 


000020 


177737 


2526 


015160 


000040 


177677 


000100 


2527 


015166 


177577 


000200 




2538 


015172 


177377 


000400 


176777 


2529 


015200 


001000 


175777 


003000 


2530 


015206 


173777 


004000 




2531 


015212 


167777 


010000 


157777 


2532 


015220 


020000 


137777 


040000 


2533 


015236 


077777 


100000 




2534 


015232 









fPOUtlNE TO LOAD WOPST C»8B UNIBU8 PATTERN IN All' FBEE MEMORY 



SEO 0345 



LOADHCi 


J8R 


R4,3AV04 




MOV 


LCOR13,R3 




ADD 


0rrSET,R2 




CMP 


HC6p12.R2 




BEQ 


81 




MOV 


LOCOREtRO 


3ti 


MOV 


»WCASE,R4 


311 


TSTB 


KTPRES 




BEQ 


5« 


4«i 


MOV 


i40000,RO 




MOV 


R2,KIPAP2 


sii 


MOV 


*2S6,fR3 


611 


MOV 


(R4)»(R0}+ 




DEC 


R3 




BKE 


61 




ADD 


il0fR2 




CMP 


R2,HCOP12 




BIT 


7« 


811 


JSP 


PC,RST04 




RTS 


PC 


7«i 


TST 


CP4) + 




CMP 


R4,»WCASEE 




BLO 


3« 




BP 


3S 



jSETUP 13 BIT STARTING ADDRESS 

J ANY MEMORY TO tOAD ? 

(NO, GET OUT 

I IF NO KTll, RO WILL CONTAIN PHYSICAL ADDRESS 

iLOAD ADDRESS Or WORST CASE DATA TABLE 

lUSB Ktin 

»N0» BRANCH 

jSET VIRTUAL ADDRESS TO THE START OF PAGE 3 

JMAP PAGE 2 TO PHYSICAL ADDRESS 

J SET UP COUNTER 

iLOAD DATA 



jAPTER EACH 256 WORDS, REMAP 
I DONE? 
jNO- BRANCH 

lYES- EXIT 

IMOVE DATA POINTER 

iTO NEXT WORST CASE VALUE 

JAND CONTINUF 



WCASEl .WORD 177776,1,177775,2,177773,4,177767,1" 

.WORD J 77757, 20, 177737, 40, 177677, 100, 177577, 200 

.«ORD 177377,400,176777,1000,175777,3000,173777,4000 

.WORD 167777,10000,157777,20000,137777,40000,77777,100000 

MCASEEi 
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2535 










2536 










2537 










2538 


015232 








2539 


015232 








2540 


015232 


052522 


000116 




2541 


015240 


007420 






2542 


015242 








2543 


015242 


047515 


000104 




2544 


015250 


010574 






2545 


015252 








2546 


015252 


042523 


000114 




2547 


015260 


010423 






2548 


015262 








2549 


015262 


042504 


000123 




2550 


015270 


010440 






2551 


015272 








2552 


01S272 


040515 


000120 




2553 


015300 


010254 






2554 


015302 








2555 


015302 


044506 


046114 


000 


2556 


015310 


010566 






2557 


015312 








2558 


015312 


052113 


043117 


000106 


2559 


015322 


010522 






2560 


015324 








2561 


015324 


052113 


047117 


000 


3562 


015332 


010522 






2563 


015334 








2564 


015334 


047520 


0CO1I6 




2565 


015342 


010522 






2566 


015344 








2567 


015344 


047520 


043106 


000 


2568 


015352 


010522 






2569 


015354 








2570 


015354 


047522 


047524 


000116 


2571 


015364 


010526 






2572 


015366 








2573 


015366 


047522 


047524 


043106 


2574 


015374 


000 






2575 


015376 


010542 






3576 


015400 


015 


000 




2577 


015402 


004 


000 




3578 


015404 


007364 






2579 


015406 


000000 


000000 


000000 
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iCOMMAND TABLE, KEYBOARD COMMANDS ARE MATCHED AIAINST IT, 
ITHE MATCH MUST BE EXACT. NO ABBREVIATIONS IRE ALLOWED. 

COMTABi 



SrQ r<2i(. 



TOKN 


-••RUN", RUN 


.ASCIZ 


*PUN% 


.rfORD 


RUN 


TOKN 


••MOD", MOD 


.ASCIZ 


%MOD% 


.WORD 


MOD 


TOKN 


•"SEL",SEL 


.ASCIZ 


%SEL% 


.WORD 


SEL 


TOKN 


*"DES",rES 


.ASCIZ 


%DES% 


.WORD 


DES 


TOKN 


•"MAP", MAP 


.ASCIZ 


%»<AP% 


.WORD 


HAP 


TOKN 


•TILL", FILL 


.ASCIZ 


%FILL% 


.WORD 


FILL 


TOKN 


-"KTOFr",KTorr 


.ASCIZ 


%KTOrF% 


.WORD 


KTOFF 


TOKN 


-"KTON«,KTON 


.ASCIZ 


%KTON% 


.WORD 


KTON 


TOKN 


••PON", PON 


.ASCIZ 


»PON% 


.WORD 


PON 


TOKN 


*"POFF",POFF 


.ASCIZ 


%porF% 


.WORD 


POFF 


TOKN 


•"R0T0N",P0T0N 


.ASCIZ 


%RbT0N% 


.WORD 


ROTON 


TOKN 


••POTOFF",ROTOFF 


.ASCIZ 


%PbTOFF% 


.WORD 


ROTOFF 


.BYTE 


15,0 


.BYTE 


4,0 


.WORD 


C0HC02 


.WORD 


0,0,0 
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SEQ 0247 



2580 










tIMPUPE 


MESSACCS 




Z58i 
















2582 


015414 


020045 


020040 


020040 


AMODNMi 


•ASCII 


'% AT • 


2S83 


015422 


040440 


020124 










2584 


015426 


020040 


020040 


020040 


APCJ 


.ASCII 


STAT • 


2S8S 


015434 


051440 


040524 


020124 








2S86 


015442 


020040 


020040 


020040 


AXDSTAI 


.ASCII 


' ' 


2597 


015450 


020040 


040520 


041523 


MDISEi 


.ASCII 


' PASCHT ' 


2588 


015456 


052116 


040 










2589 


015461 


040 


020040 


020040 


APSCNTi 


.ASCII 


. ERRCNT 


2590 


015466 


020056 


042440 


051122 








2591 


015474 


047103 


020124 










2592 


015500 


020040 


020040 


027040 


AERRSi 


.ASCIZ 


' ,• 


2593 


015506 


000 












2594 










.ODD 






2595 


015507 


040 


020040 


020040 


HOLDS J 


.ASCIZ 


• » 


2596 


015514 


000 












2597 


015515 


040 


020040 


020040 


H0LD6t 


.ASCIZ 


' • 


2598 


015522 


020040 


000040 










2599 


015526 


020040 


020040 


020040 


HOLDS! 


.ASCIZ 


' • 


2600 


015534 


020040 


020040 


000 








2601 


015541 


040 


020040 


020040 


AEKDt 


.ASCII 


PC-' 


2602 


015546 


020040 


041520 


055 








2o05 


oisssj 


0*0 


02v540 


2 00 45 


?,"""■! : 


.*.SCit 


jp.;-» 


2604 


015560 


020040 


050101 


026503 








2605 


015566 


020040 


020040 


020040 


AEHD2r 


, ASCIZ 


» 


2606 


015574 


000040 












2607 


015576 


020040 


040520 


051523 


tPASSi 


.ASCII 


PASS* • 


2608 


015604 


020043 












2609 


015606 


020040 


020040 


027040 


RPASSi 


.ASCIZ 


.' 


2610 


015614 


000 












2611 


015615 


040 


051104 


050117 


MODEVDi 


.ASCIZ 


DROPPED!' 


2612 


015622 


042520 


022504 


000 








2613 


015627 


105 


042116 


040520 


APSENDJ 


.ASCII 


ENDPAS-* 


2614 


015634 


026523 












2615 


015636 


020040 


020040 


027040 


BPSCNTi 


.ASCIZ 


,• 


2616 


015644 


000 












2617 


015645 


045 


051503 


040522 


AERRORt 


.ASCII 


%CSRA • 


2618 


015652 


040 












2619 


015653 


040 


020040 


020040 


ACSRACi 


.ASCII 


CSBC • 


2620 


015660 


020040 


051503 


041522 








2621 


015666 


040 












2622 


015667 


040 


020040 


020040 


ACSRCj 


.ASCII 


STATC • 


2623 


015674 


020040 


052123 


052101 








2624 


015702 


020103 












2625 


015704 


020040 


020040 


020040 


ASTATCl 


.ASCIZ 


• 


2626 


015712 


000040 












2627 


015714 


041445 


051123 


020)01 


ADTERPJ 


.ASCII 


4CSRA • 


2628 


015722 


020040 


020040 


020040 


ADTE6I 


.ASCII 


S/B • 


2629 


015730 


051440 


041057 


040 








2630 


015735 


040 


020040 


020040 


ADTE3J 


.ASCII 


WAS • 


2631 


015742 


020040 


040527 


020123 








2632 


015750 


020040 


020040 


020040 


ADTE21 


.ASCII ' 


WBADP • 


2633 


ni 575ft 


053440 


040522 


051104 








2634 


015764 


040 












2635 


015765 


040 


020040 


020040 


A0TE5S 


.ASCII ' 


ROADR ' 
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SEQ 0248 



2636 


015772 


020040 


042122 


042101 










2637 


016000 


020122 














2638 


016002 


020040 


020040 


020040 


ADTE4J 


.ASCIZ 


' ' 




2639 


016010 


000040 














2640 


016012 


042040 


052101 


020101 


ADTE4AI 


.ASCIZ 


' DATA ERROR* 




2641 


016020 


051105 


047522 


000122 










2642 


016026 


047527 


042122 


020043 


ADTEXJ 


.ASCII 


'WOBD» ' 




2643 


016034 


020040 


020040 


027040 


ADTE7J 


.ASCIZ 


.%• 




2644 


016042 


000045 














2645 


016044 


042440 


051122 


020043 


ERRNMB: 


.ASCII 


' EPP» ' 




2646 


016052 


020040 


020040 


027040 


AEPIMBi 


.ASCIZ 


^ • 




2647 


016060 


000 














2648 


016061 


045 


042515 


020115 


MEBPU 


.ASCII 


*MEM EAILUPE- PA ' 




Wt^ 


T!«T»«* 


"tT«rfl« 


ff*«rii 


(T«ii?ir 










2650 


016074 


076505 


050040 


070101 










2651 


016102 


020040 


020040 


020040 


HEfiR2l 


.ASCII 


S/B • 




2652 


016110 


051440 


041057 


040 










2653 


016115 


040 


020040 


020040 


mf:rp3i 


.ASCII 


WAS ' 




7654 


016122 


020040 


040527 


020123 










2655 


016130 


020040 


0200*0 


020040 


MCRR4t 


-ASCIZ 


• 




2656 


016136 


000040 














2657 


016140 


020045 


020040 


020040 


AERNMt 


.ASCII 


* HAD • 




7658 


016146 


044040 


042101 


040 










2659 


016153 


040 


020040 


02004O 


AFRCTj 


■ASCII 


. DATA ERRORS OUT 


OF 


2660 


016160 


020056 


040504 


040524 










2661 


016)66 


042440 


051122 


051117 










2662 


01S174 


020123 


052517 


020124 










2663 


016202 


043117 


040 












2664 


016205 


040 


020040 


020040 


AEPTOTi 


.ASCIZ 


. WORDS READ!' 




2665 


016212 


020056 


047527 


042122 










2666 


016220 


020123 


042522 


042101 










2667 


(116226 


000045 














2668 


016230 


040 


040 


040 


DECVALJ 


.BYTE i 


0,40,40(40,40(40 




2669 


016233 


040 


040 


040 
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2670 
2671 
2673 
2673 
2674 
2675 
2676 
2677 
2678 
2679 
2660 
2681 
2682 
36S3 
2684 



016236 
016306 
016346 
016S46 
016S46 
016606 
016606 
017116 



000100 
000020 



000310 
000454 



017572 
014000 



., .--«») 


a3-APP 


.77 J 


jBUFFEP 


AREAS, 
.EVEN 




MODQt 






KBUFI 








.BLKW 


64. 


SPBOTi 








.BtiKW 


16. 


SPSPECi 






lOQt 


.BLKB 


lOOL 


TYPEQt 


.BLKB 


TVPOL 



13153 PASE 95 



jROOM FOP 20 MODULE POINTERS 
JKEYBOAPD BUFFER, KBUFI, LONG 
, MONITOR STACK AREA 

JSPECIAI MONITOR STACK AREA 



SEQ 0349 



BUFSIZ«»MOON«-STAPT 



(FIRST ADDRESS AFTER OUFUES 
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SE'5 0250 



2685 










fROUTINE TO DFTFB"INE WHETHER 


2686 










J AND TC 


1 DETER" 


INE CORE LIMITS 


2687 










iRTl OP 


1 PTT IW 


STRUCTION. 


7688 




016606 








.»I0O 




2689 


016606 


013737 


016624 


OOOOIO 


SETBUFl 


MOV 


»1$,RESIV 


2690 


"16614 


005046 








CLP 


-(SP) 


2691 


016616 


012746 


016654 






MOV 


»2S.-(SP) 


2692 


016622 


000006 








RTT 




2693 


016634 


013737 


000003 


005000 


181 


MOV 


»PTI,TRCIA 


2694 


016632 


012737 


000002 


003630 




MOV 


tRTl.RTTl 


2695 


016640 


013737 


001336 


001346 




MOV 


CHKL2,CHKL1 


2696 


016646 


013737 


001340 


001350 




MOV 


CHKH2.CHKV1 


2697 
















2698 


016654 


012737 


012524 


000010 


2t| 


MOV 


«PF.SINT,RESIV 


2699 


016662 


105037 


001301 






CLRB 


MDL45 


2700 


016666 


105037 


001252 






CURB 


KTPPES 


2701 


016672 


105037 


001261 




STBFAj 


CLRB 


ROTI 


2702 


016676 


105037 


001263 






CLRB 


PFLOC 


2703 


016702 


013737 


000000 


001300 




MOV 


0. LOCORE 


2704 


016710 


001004 








BNE 


IS 


2705 
















2706 


016712 


005137 


001200 






COM 


LOCORE 


2707 


016716 


000137 


017214 






JMP 


SFTXT 


2708 


016732 


004537 


012174 




l»: 


J5R 


R5,T0P12S 


2709 


016736 


001200 








LOCORE 




2710 


016730 


032737 


000777 


001200 




BIT 


#777. LOCORE 


2711 


016736 


001414 








BEO 


2« 


2712 


016740 


043737 


000777 


001200 




PIC 


#777,LOrOPE 


2713 


016746 


042737 


000007 


001204 




BIC 


»7,LCOP12 


2714 


016754 


062737 


001000 


001200 




ADO 


»3000, LOCORE 


2715 


016763 


062737 


000010 


001204 




ADD 


I10.LC0R12 


2716 


016770 


013737 


000042 


001206 


2Sl 


MOV 


42,HCOB12 


2717 


016776 


001403 








BEQ 


KTTEST 


2718 


017000 


112737 


177777 


001260 




HOVB 


1-1, CHN 


2719 


017006 


105737 


001252 




KTTESTJ 


TSTB 


KTPRES 


2720 


017013 


001035 








BNE 


SETKT 


2721 


017014 


012737 


017056 


000004 




MOV 


I5«,4 


2722 


017033 


012700 


174000 






MOV 


#-4000, PO 


2723 


017036 


005001 








CLB 


Rl 


2724 


017030 


062700 


004000 




4ii 


ADD 


#4000, RO 


2725 


017034 


062710 


000000 






ADD 


»0,(RO) 


2726 


017040 


005201 








INC 


Rl 


2727 
















2728 


017043 


022701 


000034 






CMP 


*2B.#R1 


2729 


017046 


001370 








BNE 


4« 


2730 


017050 


062700 


004000 






ADO 


*4000(RO 


2731 


017054 


000401 








BR 


6$ 


2732 


017056 


022626 






5tl 


CMP 


tSP)+,CSP)+ 


2733 
















2734 


017060 


000300 






6«i 


SWAB 


RO 


2735 
















2736 


017062 


006300 








ASL 


RO 


2737 


017064 


006300 








ASL 


RO 


2738 


017066 


042700 


170037 






BIC 


»170037.R0 


2739 


017073 


105737 


001360 






TSTB 


CHN 


2740 


017076 


100003 








BPL 


SETCOH 



WRITE BUFFKB POTATION SHOULD TAKE PLACE, 

OF PUFFFR POTATIOW, ALSO TO DETERMINE USE OF 



SSET UP A RESERVED TNSTPUCTION TRAP. 

jCLEAP A KORD ON THF STACK FOR A NE* PS« 

jSET UP TO EXIT WITH PTT INSTRUCTION, 

;IF PTT "JOT VALID IT WILL TPAP OUT. 

jTRAP COVES HERE. CHANGE RTT'S TO PTI'S. 

; By SFTTING THE T"STPUCTION VALUE 

jCHANGE SET OF CHKSUM WORDS BECAUSF 

jOF RTT'S REPLACING RTT'S 

jDF ALL RTT'S TO THOSE OF PTI'S 

> RESTORE THE RESERVED INSTRUCTION TRAP VECTOR 

;NOT A 45 

;N0 KTll 

•ASSUME NO BUFFER ROTATION. 

J ASSUME NO CODE RELOCATION 

;GET LOCORE ADDP. FROM t,0C 

;eR IF LINKED WITH CONFTG/LINKEP PPGGRAN- 

5 IF NOT ASSUMES NOT IN CHAIN MODE 

(INDICATE SETBUF HAS BEFN RUN 

jGO PREPARE TO FXIT SETBUF POUTTNE 

(GET TOP )2 BITS OF LOCOPE PHYS ADDP 

(AND PUT IT INTO LC0R12 

(IS IT ON A 256 WORD BOllNOARY 7 

(YES, CONTINUE 

(NO, CLEAR OUT LOWER BITS 

(ROUNDING OFF TO NEXT HIGHEST 256 BOUNDARY 

(POUND UP TO THE NEXT 256 WORD BOUNOAKY 

(ALSO INDICATE THAT BOUNDSRY IN L0C0R12 

(ARE WE IN CHAIN MODE? 

(IF NO, GO DETERMINE IF KT IS TO BE USED 

sIF YES, SET THE CHAIN INDICATOR 

(IS THE KTll AVAILABLE FOR USE? 

(IF YES, GO SIZE MEMORY USING IT 

(IF NO, ONLY SIZE MEMORY UP TO 28K 

(INITIALIZE LOOP COUNTER TO POINT TO BANK 

(INITIALIZE THE COUNTER OF IK CHUNKSCBANKS) 

(POINT TO THE FIRST WORD IN THE NEXT IK BANK 

(KILL TRAP IF LOC DOESN'T EXIST 

(IF NO, CONTINUE PPOCESING AT 4$ 

(IF YES, UP THE MEMORY BANK COUNT 

(HAVE 28 BANKS BEEN COUNTED? 

(IF NO, GO CONTINUE SIZING 

(IF YES, INDICATE THE NUMBER OF WORDS IN PO 

(SKIP OVER THE NEXT INSTRUCTION 

[IF THERE WAS NO LOCATION AT LAST TPY, 
(REMOVE THE TRAP FROM THE STACK 
(ISOLATE THE 12 HGH ORDER BITS, FIRST, 
(GET THE MOST SIGNIFICANT BITS IN THE LOW BYTE 
(ALIGN THE BITS TO ACCOUNT FOR 
(EXTENDED ADDRESS BITS £17 ♦ IB) 
(ELIMINATE THE UNWANTED BITS FROM RO 
(ACTll CHAIN? 
(NO- DON'T ADD ROOM FOR MONITOR 
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SEQ 0251 



2741 


017100 


162700 


000100 


2742 


017104 


000400 




2743 


017106 






2744 


017106 


012737 


012516 000004 


2745 


017114 


010037 


001206 


2746 


017120 


004737 


017222 


2747 








2748 


017124 


013700 


001206 


2749 


017130 


010037 


001210 


2750 


017134 


163700 


001204 


2751 


017140 


022700 


000040 


2752 


017144 


101023 




2753 


017146 


105237 


001261 


2754 


017152 


105737 


001252 


2755 


017156 


001413 




2756 


017160 


022700 


000400 


2757 


017164 


101010 




2758 


0]7l66 


013737 


OCiiSS 0012J0 


2759 


017174 


163737 


001204 001220 


2760 


017202 


105237 


001263 


2761 


017206 


004737 


0)5016 


2762 


017212 


000005 




2763 


017214 






2764 


017214 


005037 


000000 


;?65 


0:'?225 


5SS;5? 





SUB 
BR 

StTRTI 

SETCOMj MOV 
HOV 

SETCMji JSP 

MOV 

wov 

SUB 
CMP 

BHI 
INCB 
TSTB 
BEQ 
CUP 
BHI 
MOV 
SUB 
INCB 
11! JSR 

RESET 



»100»RO 
SETCOM 

*BUSERR,4 
R0,HCOR12 
PCTSTHEH 

HCOP12,R0 

RO,HCORSV 

LCOR12,R0 

MOfRO 

SETXT 

ROTI 

KTPPES 

II 

«40O(R0 

IS 

HCORi2,orrMx 

tcoRi2,orrMx 

REIOC 
PC.LOADWC 



SETXTj 



CLR 



J YES- AtiLOW ROOM FOR MONITOR 
SGO TEST THE MEMORY 

:RESET BUS ERROR TRAP, 

(HI AODR TO HC0R12, 

sTEST MEMORY FOR BASIC FUHCTIONIKG 

»VIA ADDRESS UP/DOWB TEST 

tOIFF BETWEEN LC0R12 AND HC0R12 

SlNITlALIZE SAVE LOCATION FOR KION/OFF COMMANDS 

jHUST BE AT LEAST 40 

jIS IT? 

sFORGET IT IF NOT. 

(ALLOW ROTATION, 

(NO RELOCATION IF NO KTll 

(IF 8K OR GREATER, ALLOW CODE RELOCATION 

(BRANCH IF NOT 

(CALCULATE THE HIGHEST LOC TO WHICH 

(THE PROGRAM CAN BE RELOCATED 

(ENABLE RELOCATION 

(LOAD KORST CASE UNIBUS NOISE PATTERN 

(TURN OFF KTll IF I^ USE 

(CLEAR LOC 0, 
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SEQ 0253 



2766 








2767 








2758 


017222 


023737 


001206 


2769 


017230 


001001 




2770 


017232 


000207 




2771 


017234 


013702 


001204 


2772 


017240 


013701 


001200 


2773 


017244 


012737 


017626 


2774 


017252 


105737 


001252 


2775 


017256 


001002 




2776 


017260 


010100 




2777 


017262 


000404 




2778 


017264 


012700 


040000 


2779 


017270 


010237 


172344 


2780 


017274 


012703 


rtOon40 


2791 


017300 


010120 




2782 


017302 


062701 


000002 


2783 


017306 


005303 




2784 


017310 


001373 




2785 


017312 


005202 




2796 


017314 


090237 


001206 


2787 


017320 


002754 




2788 


017322 


005302 




2789 


017324 


162701 


000002 


2790 


017330 


105737 


001252 


2791 


017334 


001002 




2792 


017336 


010100 




2793 


017340 


000404 




2794 


017342 


012700 


040076 


2795 


017346 


ni0237 


172344 


2796 


017352 


012703 


000040 


2797 


017356 


011037 


001176 


2798 


017362 


020137 


001176 


2799 


017366 


001120 




2800 


017370 


162700 


000002 


2801 


017374 


162701 


000002 


2802 


017400 


005303 




2803 


017402 


001365 




2804 


017404 


005302 




2805 


017406 


020237 


001204 


2806 


017412 


002346 




2807 


017414 


013702 


001206 


2808 


017420 


010201 




2809 


017422 


005302 




2810 


017424 


006301 




2811 


017426 


006301 




2912 


017430 


006301 




2813 


017432 


006301 




2814 


017434 


006301 




2815 


017436 


005301 




2816 


017440 


006301 




2817 


017442 


105737 


001252 


2818 


017446 


001002 




2819 


017450 


010100 




3820 








2831 


017453 


000404 





(MEMORY ADDRESS UP/DOWN TEST 



TSTMEMI 


CMP 


HCOR12,LCOR12 




BNE 


5S 




RTS 


PC 


58: 


MOV 


LC0R12iR2 




rfOV 


LOCORE.Pl 




MOV 


|N0HEM,4 


l«l 


TSTB 


KTPRES 




BNE 


28 




MOV 


Rl.PO 




BR 


3( 


2Sl 


MOV 


•40000, RO 




MOV 


R2,KIPAR2 


3Sl 


MOV 


«32..R3 


4«l 


MOV 


P1,(R03* 




ADD 


«2,R1 




DEC 


R3 




BNE 


4t 




INC 


R2 




CMP 


P2.-HC0R12 




BLT 


11 




DEC 


R2 




SUB 


»2.P1 


TSTMl: 


TSTB 


KTPRES 




BNE 


1« 




MOV 


Rl.RO 




BR 


28 


l$l 


MOV 


Jt40076,R0 




MOV 


R2,KIPAR2 


2ti 


MOV 


*32.'P3 


311 


MOV 


ORO.MEHWAS 




CMP 


Rl.MCMWAS 




BNE 


MERR 


4S| 


SUB 


♦ 2,R0 




SUB 


»2,P1 




DEC 


P3 




BNE 


31 




DEC 


P2 




CMP 


R2,LC0R12 




BGE 


TSTMl 




MOV 


HCbR12,R2 




MOV 


R3,R1 




DEC 


R2 




A8L 


Rl 




ASL 


Rl 




ASL 


Rl 




ASL 


Rl 




ASL 


Rl 




DEC 


Rl 




ASIi 


Rl 


TSTM2J 


TSTB 


KTPPES 




BNE 


11 




MOV 


Rl.RO 



(ANY MEMORY TO TEST ? 

(YES, CONTINUE 

(NO, RETURN 

(LO.»D 12 BIT LDCOPE ADDRESS 

(Rl CONTAINS LOCORE PHYS ADDRESS 

(LOAD TIME-OUT VECTOR 

(USF KTll? 

(YES- BRANCH 

(NO- SET VA EQUAL TO PA 

(SET VA TO PAGE 2 

(HAP PAGE 2 TO PHYSICAL ADDRESS 

• CPtJNT 5 BLOCK 

(LOAD LOCATION WITH ITS ADDRESS 



(AFTER 1 BLOCK, UP PAGE ADDRESS FIELD 

}»T TOP? 

■NO- CONTINUE 

(YES- TEST GOING DOWN 

(USE KTll? 

(YES- BRANCH 

(NO- LOAD VIRTUAL ADDRESS POINTER WITH PHYS ADDRESS 

(MAP VA TO TOP OF 1ST BLOCK IN PAGE 2 
(NAP PAGE 2 TO PA 
(COUNT 1 BLOCK 



(DOES LOCATION CONTAIN ITS PA? 
(NO- BRANCH 



(AFTER CHECKING 1 BLOCK, ADDRESS NEXT 

(DONE? 

(NO- CONTINUE CHECKING 

(YES- SET TO LOAD MEMORY 

(FROM TOP DOWN 



(USE KTll? 

I YES- BRANCH 

(NO- LOAD VIRTUAL POINTER WITH 

(PHYSICAL ADDRESS 



OAtD DeC/Xii aHOKT NONITOll 
DXOkBM.Pti ai«»PA-77 13143 



MACYtl STClOOft) 33*APII-TT tSiSI PASE 99 



SEO 0253 



3«33 
3133 
3t34 
383! 

3836 
3837 
3838 
3839 
3830 
3831 
3833 
3833 
3834 
383S 
3836 
3837 
3838 
3839 
3840 
2841 
3843 
3843 
2844 
2845 
2846 
2847 
3848 
3849 
2850 
3851 
3853 
3853 
3854 
3855 
3856 
3857 
3858 
3859 
3860 
2861 
3863 
3863 
3864 
2865 
2866 
2867 
3868 
3869 
2870 
2871 
2872 
2873 
2874 
2875 
2876 
2977 



0174S4 013700 040078 



1(1 



MOV 



017460 
017464 
017470 
017472 
017474 
017500 
017504 
017506 
017510 
017512 
017516 
017530 
017523 
017536 
017530 
017534 
017536 
017540 
017542 
017546 
017552 
017556 
017562 
017564 
017566 
017572 
017574 
017576 
017602 
017604 
017606 
017610 
017614 
017616 
017624 

017626 
017630 
017636 
017642 
017646 
017652 
017656 
017662 
017666 
017672 
017674 
017700 
017704 
017706 
017712 
017716 
017720 
017724 



010337 
01370J 
010110 
005110 
163701 
163700 
005303 
001370 
005303 
030337 
003351 
005202 
063701 
010104 
105737 
001003 
010400 
000404 
013700 
010237 
012703 
011037 
010401 
005101 
020137 
001016 
005720 
062704 
005303 
001364 
005202 
020237 
002745 
012737 
000207 

033636 
012737 
105237 
010037 
104413 
010137 
01J746 
013746 
004537 
016103 
013746 
004537 
016115 
013746 
004537 
016130 
004537 
001166 



173344 

000040 



000003 
000002 



001204 

000002 
001253 



040000 
173344 
000040 
001176 



001206 
013516 



013516 
001303 
001164 
001164 
001174 
001166 
001170 
011534 

001174 
011512 

001176 
011512 



MOV 
31 i MOV 
31 I MOV 

COM 
SUB 
SUB 
DEC 
BNE 
DEC 
CMP 
8GE 
T»C 
ADO 
MOV 

T8TM3I T8IB 
BNE 
MOV 
BR 

Iti MOV 
MOV 

2*1 MOV 

3(1 MOV 
MOV 
COM 
CMP 
BNE 

4(1 TST 
ADD 
DEC 
BNE 
INC 
CMP 
BLT 
000004 MOV 

RTS 



000004 



NOMEMi 
MERRi 



(40076rR0 

R3.KIPAR3 
«33.>R3 

Rl.MO 

•RO 

*3,R1 

(2,R0 

R3 

3( 

R3 

P2,!iCOR12 

TSTM2 

R2 

<2>P1 

R1.R4 

KTPRES 

1( 

R4,P0 

2( 

*40000>R0 

R2,KIPAR2 

«32,,P3 

»RO>MEMWAS 

R4,R1 

Ri 

R1,MEMWAS 

MERR 

CRO) + 

«2,R4 

R3 

38 

R2 

R2,HC0R12 

TSTM3 

*BUSERR,4 

PC 



CMP t8P)+.CSP)+ 
MOV «euSERR,4 
INCB MEMtPF 
MOV RO.MEMVA 
GETPA«,MEMVA 



MOV 

MOV 

MOV 

JSR 

MERR2 

MOV 

JSR 

MERR3 

MOV 

JSR 

MGRR4 

JSR 

HEMPA 



R1,MEMSBE 
MEMPA,-(SP) 
MEMEA«-{8P) 
R5,0ACNVX 

MEMSBE,-(8P) 
PB.OACNV 

MeMWA8,>(SP) 

R5,0ACHV 



jlOAD VIRTUAL WITH TOP ADDRESS OF 

1 1ST BtOCK IN PAGE 3 

(MAP PAGE 3 TO PHYSICAL 

■COUNT A BLOCK 

ILOAD LOCATION WITH ITS PHYS ADDRESS 

, COMPLEMENT IT 



» AFTER LOADING A BLOCKi SET UP FOR NEXT 

(DONE? 

»N0- BRANCH 

J YES- SETUP TO CHECK IT 



SUSE KTH7 

jYES- BRANCH 

!SET VIRTUAL ADDRESS EQUAL TO PHYS ADDRESS 

•SET VIRTUAL ADDRESS TO START OF PAGE 2 
J MAP PAGE 2 TO PHYSICAL ADDRESS 
jCOUNT A BLOCK 



jDOES LOCATION CONTAIN COMPLEMENT OF ITS PHYS ADDRESS? 
J WO" BRANCH 



{CHANGE 12 BIT ADDRESS AFTER CHECKING 

JDONE? 

J NO- BRANCH 

J RESET THE TIME-OUT TRAP VECTOR 

»YES- RETURN 

jPOP THE STACK POINTER TWICE 
(RESET THE TIME-OUT TRAP VECTOR 

(SAVE FAILING ADDRESS 

jSAVF EXPFCTED CONTENTS 

(CONVERT PHYSICAL ADDRESS TO ASCJT 



(CONVERT SHOULD BE TO ASCII 
(CONVERT WAS VALUE TO ASCII 
(GET NEW HIGH CORE VALUE 



QAED DEC/Xli SHORT MONITOR 
OXOABM.PIl 21-APR-77 13|43 



MACYll 27tl0063 22-APR-77 12153 PAGE ICO 



2878 017726 013737 001172 001206 

2879 017734 042737 000007 001206 

2890 017742 162737 000040 001206 

2891 017750 000207 



MOV 
BIC 
SUB 

RTS 



SEQ 0254 



HEM12,HC0P1? 
•7,HC0R12 
t40»HCOP12 
PC 



QAED DEC/Xlt SHORT NONITOA 
DXQABM.Pll J1-»PB»77 13142 



HACYll aiClOOS) JJ-APR.77 IJlBS P*SE 101 



SEQ oass 



9«83 



QArD DEC/XII SHOPT MONXTOP 
DXOABM.PH 2J-APR.77 12142 



MACYll 27(1006) 22-APB-77 12«53 PAGE 103 

CROSS PEFERFWCE TABLE -• USER SYMPOLS 



AAT 


014132 


2409t 
















ACBLF » 


014155 


874 


889 


892 


1210 


1224 


2413* 






ACSR * 


000052 


1681 
















ACSPAC 


015653 


952 


26]9i 














ACSRC 


015667 


846 


2622* 














ADDRHI 


001044 


265« 


1758» 














AODRtO 


001042 


264* 


1703 


1757* 












AOPCRR 


011062 


1755 


17621 


1780 


1782 










ADTERR 


015714 


865 


2627» 














ADTEX 


016026 


872 


2642* 














ADTES 


015750 


784 


820 


2632* 












ADTEJ 


015735 


782 


922 


2630* 












ADTE4 


016002 


773 


828 


2638* 












»DTe4A 


016012 


864 


26401 














ADTE? 


015765 


780 


834 


2635* 












ADTE6 


015722 


762 


840 


2628* 












ADTE7 


016034 


790 


2643* 














AEND 


015541 


696 


857 


919 


943 


991 


2601* 






AENDl 


015553 


917 


2603* 














AeND2 


015566 


915 


26051 














AERCT 


016153 


729 


2659* 














AERHM 


016140 


726 


735 


2657* 












AERNM6 


016052 


756 


816 


2646* 












AEPROP 


015645 


868 


2617* 














AERRS 


015500 


1640 


2592* 














AERTOT 


P16205 


732 


2664* 














ALCLR 


001332 


386t 
















ALl<BK 


001322 G 


371 


380* 


511 


952 


962 








AMPSTA 


015442 


1634 


25B6t 














AMOON»« 


015414 


333 


1628 


1644 


1813 


1817 


1862 


2582* 


2683 


APASS 


015606 


923 


2609* 














A PC 


015426 


1631 


2584* 














A PC LP 


001334 


387» 
















APSCNT 


015461 


1637 


2589* 














APSEND 


01562'' 


992 


2613* 














APTGAL- 


•»•••• U 


1 
2400 


27 

2406 


28 
2764 


30 


207 


307 


407 


432 434 


ASB « 


000056 


172i 


1047 


1409* 


1429* 










ASTAT ■ 


000054 


1701 
















ASTATC 


015704 


844 


2625* 














ATE 


001310 


370« 


1879» 


1882* 


1885* 


1894 


1907 


1917 


1928* 


ANAS ■ 


000060 


173« 


1045 


1062 


1408* 


1428* 








BDCNV 


011744 S 


331 

2326 


728 


731 


755 


799 


815 


922 


987 1636 


BITO ■ 


000001 


1321 


1917 


1928 












BIT! ■ 


000002 


1311 
















BITIO « 


002000 


122« 


530 


54C 


1406 


1539 








BITll ■ 


004000 


121* 


530 


535 


1935 










BIT12 ■ 


010000 


1201 


530 


549 


954 


983 


1545 






BIT13 ■ 


020000 


1191 


625 


689 


733 


853 


939 


1004 


1528 1531 


BIT14 « 


040000 


1181 


628 


898 


1529 


1623 


1665 


1670 




BITIS ■ 


100000 


117t 
















B1T2 ■ 


000004 


130» 
















BIT3 ■ 


000010 


1291 
















BIT4 > 


000020 


1281 
















BITS ■ 


000040 


1271 

















1639 



19391 2317 



2322 



OAED DfC/Xll SHOPT MnNITHR 
DXQABM.pil 21-»PB»77 J2|42 



MUCyll 27C10065 22-APR-77 12|93 PAGE 104 

CROSS RCrEPrNCE TABLE » USER SYMBOLS 



SEQ 9257 



BIT6 ■ 


000)00 


1261 


144 






BIT7 ■ 


000200 


125* 


1885 






BIT9 ■ 


000400 


124» 








BITS ■ 


001000 


123(1 


1002 






BKCNT 


00102S 


250* 


960 


1005« 


1544* 


BKPTR 


001280 


3391 


442* 


548* 


596 


BKOSVC 


002622 


502 


647* 






BKQUE 


001012 


239» 








BKTIHE 


001304 


365* 


1015 






BKTIHR 


001034 


259* 


10l2» 


1015» 




BPSCNT 


niSfi36 


986 


2615* 






BRAKE 


001013 


240t 


509 


547» 


949* 


6RCAK»a 


104407 


615 


210!* 






BREAK. 


003136 


617 


715* 






BUFSIZa 


014000 


2683i 








BUSERP 


012516 


189 


2135* 


2744 


2857 


BUSEV 


000004 


199» 


434 


436* 


441* 


CADDP 


001372 


413 


415* 


6e7» 


708* 


CAST > 


•«•••• S 


36t 


211 






CCSRA 


001144 


298# 


836* 


948* 


900* 


CDATA$> 


104414 


2115« 








CDATA. 


006626 


1363* 


2114 






CDATAl 


0066S2 


1369* 


)449 






CDEPP 


001376 


419* 


1414 






CDERRi 


001400 


420* 


)369» 


1370* 


1413 


CDFLG 


001142 


297* 


1365» 


1388 


1448* 


CDRET 


007202 


421 


1444* 






CHKHl 


001350 


400* 


2696* 






CHKH2 


001340 


396* 


2696 






CHKLl 


001346 


399* 


2695* 






CHKL2 


001336 


395* 


2695 






CHKSUM 


001342 G 


35* 


397* 






CHN 


001260 


347* 


467 


522 


997 


CHHOUT 


012722 


1252 


2177 


2)81* 




CKCOMT 


006632 


1362 


1365* 






CLOCK 


001321 G 


34* 


379* 






CLOCKL 


001324 G 


33* 


382* 






CLOCKP 


001326 G 


33* 


383* 






CLROUS 


012272 


446 


461 


1262 


1268 


CLBVEC 


0123S4 


462 


1514 


2062* 




CLR40 


014431 


458 


2448* 






CNTt 


001307 


369* 








COHCON 


007364 


1460 


1488* 


1589 


1618 


COMCOl 


007360 


1470 


148?* 






C0MC02 


007364 


1489* 


2578 






C0MC03 


007374 


1243 


1492* 


1676 


1682 


C0MC04 


007400 


1493* 


1499 






COMOUE 


001362 


413* 


712 


908 


1007 


COHTAB 


015232 


1463 


2539* 






CONVRT 


011550 


1880 


1889* 






CR 


014)25 


993 


1250 


2407* 




CRCR 


014127 


695 


956 


942 


990 


CSBA ■ 


000050 


167* 


906» 


1080 




CSTABT 


001374 


416* 
1480* 


686» 
2342» 


688 


709* 


CTRLC 


014153 


1274 


2414* 







1513* 



967 



1001* 1272* 2150* 2172* 



980* 1479* 



1245 



2191 



27)8* 2739 



OAED DEC/X11 SHORT MONITOP 
DXQABM.PU 21-»PP-77 12142 



MACYll 27C1006) 22-APB-77 12j53 PAGE 1^5 

CROSS PEFEPENCE TABLE -- USER SVmbOIS 



CTPLCA 


006136 


1168 


1237* 














CTRLCB 


006142 


973 


1238* 














CTPLCD 


006224 


1246 


1352* 














CTRLX 


006230 


1239 


1254* 


2146 


2170 










CXPET 


0O1242 


336* 
















OATCKS» 


104417 


2121* 
















DAICK, 


006616 


1361* 


2120 














DATEP$> 


104405 


2101* 
















DATFLG 


001315 


375* 


1361* 


1363* 


1436 










DDPPTP 


000042 


206* 
















DECODE 


007230 


1225 


1453* 














DECVAL 


016230 


1941 


2668* 














DERPCT 


00)114 


286* 


1366* 


1399* 


1403* 


1404 


1411 


1420 


M2P 1438 


DGRRXSB 


104421 


419 


2125* 














DERRX. 


003244 


674 


741* 














DERRXl 


003312 


751* 


753 














DES 


010440 


1655* 


2550 














DIRA 


010274 


1251 


1617 


1620* 












DIPTND 


OOIOlt 


238* 


1615* 


1625 


1641 










DOT 


014122 


466 


1492 


1582 


2159 


2406* 








DSTADP 


001054 


269* 


556* 


558* 


620* 


623 


643 


647* 


716* 14?2* )435 


EHTV 


000030 


200* 
















ENDCO" 


004314 


693 


749 


806 


909* 


938 


995 






ENDPSSa 


104402 


2095* 
















ENDSVA 


004446 


901 


939* 














ENDSVB 


004604 


965 


969* 


1553 












ENDSVC 


004440 


673 


937* 














ENOSVD 


004622 


961 


966 


969 


972 


974* 


1003 






END5VE 


004474 


947* 


998 


1006 












ENDSVF 


004610 


959 


971* 














ENDSVG 


004550 


953 


960* 


2343 












END$ ■ 


104403 


2097* 
















ERCNT ■ 


000030 


159* 


754 


807* 


909* 


814 


896 


1424* 


1427* 1527* 1638 


ERRIND 


001017 


244* 


741* 


795* 


797* 


799* 


801 


817 


961 870 976 


ERPLIM 


001234 


332* 


896 














ERRNMB 


016044 


859 


2645* 














ERRKS ■ 


104410 


2107* 
















ERRORia 


104404 


2099* 
















ERRPbS 


001140 


296* 


764* 


765* 


769 


776 


785 






ERR8VC 


003524 


673 


799* 














ERSVCA 


003532 


796 


798 


800* 












ERSVCB 


003600 


808 


910* 














ERSVCC 


003604 


811* 


913 














ERSVCl 


003516 


673 


797* 














ERSVC2 


003506 


674 


795* 














ERSVND 


004222 


737 


954 


877 


894* 










ERSVX 


004014 


791 


841 


8531 












EXIT* a 


104400 


2091* 
















EXIT. 


005030 


1023* 


1091 


2090 












EXITl, 


005032 


1020 


1024* 


1096 


1159 










EXIT2. 


005066 


1035* 


1051 


1073 


1101 


1155 








FAKESR 


001004 


232t 


439 


451 












FILCNT 


001254 G 


36* 


343* 


1346 


1719 










riLCTR 


001Q20 


24St 


1346* 


1348* 


1352* 










FILL 


010566 


1696* 


2556 














FILLER 


001255 G 


36* 


344* 


1349 













OAED DEC/Xll SHORT MONITOP 
O'XQABH.PJl 21-APP-77 12142 



MACTtll 27(10063 22-APB-77 12|53 PAGE 106 

CROSS PErEBENCE TABLE — USER SYMBOLS 



8EQ 0259 



riLLID 


001272 


354t 


1491* 


1696* 


1720 








riLLNH 


011208 


725 


918 


1627 


1798* 








GETADR 


011022 


1701 


1750* 












GETNAH 


0U234 


1661 


1698 


1809* 










GETNUH 


011070 


1710 


1750 


1766» 










GETPA»> 


104413 


B24 


830 


909 


2113* 


2864 






GETPA. 


013770 


2112 


2374* 












GTOK 


007272 


1463f 














GTOKX 


007276 


1464* 














GTOK J 


007300 


14651 


1473 


1475 










GTOKZ 


007322 


1466 


1474* 












GWBUFI» 


104412 


2S11» 














GWBUF. 


013646 


2110 


2346* 












HAPDSRb 


177570 


77i 


435 












HCOPSV 


001210 


321« 


2749* 












HCbR12 


001206 G 


331 


319* 


1596 


1600 


2226 


2263 


2500 2513 






^"b9 


2807 


2655 


2878« 


2679» 


2860* 




HLT 


014620 


I, a 


1144 


2084 


7469* 








HMS 


013424 


34f 


2288* 












HNGFLG 


001312 


372t 














HNOTIH 


001330 G 


351 


395* 












HOLDS 


015507 


23 le 


2319 


2320 


2323 


2324 


2327 


2326 2555* 


H0L06 


015515 


664 


685 


1729 


1730 


1744 


1745 


2597* 


HOLDS 


015526 


1737 


1738 


2599* 










nC? 


05 1540 


1333 


1SE7S 












HOURS 


001353 G 


34* 


402* 


2319» 


2320* 








HUHGCK 


013622 G 


35« 


2338* 












IE « 


000100 


144» 


475 


1197 


1248 








INIT » 


000022 


1S6< 


556 












INPUT 


001650 


468 


472* 


1493 


1564 








INVSDP 


014364 


1762 


2441* 












INVCOl 


014304 


1459 


2431* 












INVCD2 


014322 


2434# 














INVCD3 


014334 


2436« 














1NVCD4 


014346 


1588 


2438* 












INVCMD 


014272 


1487 


2429* 












INVNAH 


014403 


1851 


2444* 












INVTPP 


014223 


2083 


2422* 












lOBKID 


001060 


271# 
2149* 


490 
2171* 


515* 


524» 


531 


542 


564 566* 


100 


016606 


149 


609 


1142 


1148 


2050 


2679* 


2668 


lOQL « 


000310 


146t 


149 


2055 


2679 








IOOLTM» 


017116 


149* 


607 


1146 










lOOSVA 


002522 


625* 


653 












lOQSVB 


002604 


6411 














lOQSVC 


002424 


469 


607» 












lOOSVD 


002570 


635* 


1442 












lOQSVE 


002514 


563 


622 


624* 


717 








lOOSVN 


002500 


414 


620* 












loour 


001006 


23S* 


487 


610* 


1016 


1138 


1150* 


2045 2046 


1001 


001074 


277* 


1140 


1142* 


1146 


U4e« 


1149* 


1151* 2051* 


1002 


001076 


278* 


607 


609* 


611 


612* 


1140 


2052* 


lOTV 


000020 


195* 














ITOA 


onooo 


1706 


1708 


1742* 


2152 


2261 






ITOAX 


010710 


1725* 


2275 












ITQAS 


010744 


1713* 















2716* 2745* 



566 



591* 1558* 



QAED OEC/Xll SHORT MONITOR 
DX0AB".P11 21-APR-77 17f42 



27(1006) 22-APR-77 12j53 PAGE 107 
CROSS RErFRENCE T»BIE — USER SYMBOLS 



SEO 0260 



ITOUT 


011016 


KBOFLO 


014416 


KBPTB 


001036 


KBSRVC 


005644 


KBUF 


016305 


KBUFL * 


000040 


KIPARO* 


172340 


KIP»R1« 


172342 


KIPAP2" 


172344 


KIPAR3« 


172346 


KIPAR7* 


172356 


KIPDPO» 


172300 


KIPDPl" 


172302 


"KI>D"RJ» 


r72'304 


K1P0P3» 


172306 


KIPDR7* 


172316 


KTOFF 


010522 


KTON 


010522 


KTDNM 


014740 


rrpRcs 


00175? G 


KTTEST 


057006 


KWllL s 


•••»•• G 


KWllP ■ 


••*•*« G 


KYBDV 


000060 


LCLEABb 


•»•»•• G 


LC0P12 


P01204 G 


LOBBK, 


005460 


LOTOO 


005474 


LDTYPQ 


005350 


LOADWC 


015016 


LOCK 


001275 


LOCORE 


OOljOO 


LOGIC 


012752 


LOGICA 


012762 


HAP 


010254 


MAPREGa 


170200 


MAPRET 


001232 


MAP228" 


10441S 


MAP22. 


014012 


MDIRE 


015450 


MDL45 


001301 


HOXCHT 


001022 


HDXCTR 


001021 


MED « 


076600 


MEHCHG 


014576 


MEMEA 


001170 


HEMERF 


001303 


MEMPA 


001166 


MEM8BE 


001174 


MEMVA 


001164 


MEMWAS 


001176 


HEM 12 


001172 


KERR 


017630 


MERPl 


016061 


MERR2 


016102 



1731 1739 
1229 2446* 

262* 469* 
1462 1481* 

214 11&4I 

474 1174 

145* 1174 

101* 

102* 

103* 

104* 

105* 
96* 
97# 
98* 
99« 

100* 

1676* 

1675* 

2485* 

37* 

2717 

34* 

34* 

214* 

35t 

33* 

U24I 

1125 

1041 

465 

3571 

316* 

206 
2176 
1615* 
82* 

331* 
2117* 
2116 
1616* 

362* 

247* 

246* 
63* 
2255 2466* 

312* 2867 

364* 2252 

311* 2866 

314* 2865* 

310* 2863* 

315* 2797* 

313* 2878 
2799 2849 
2254 2648* 
2651* 2669 



474* 
1769 



1204 
2675 



1174 
1793* 



U93» 

1809 



1194* 
1857* 



1223 



1204 
1869* 



1211* 1216 



1222* 1223* 



mo •>■) 



t^^A 070ft "jQn taie 



2507* 2779* 2795* 2824* 2843* 



2559 

2562 

^jQ« ^c4 7184 2*04 270 
2719* 
382 
383 

386 

3l6« 1594 7498 2713* 2715* 2750 2759 2766 2771 2805 2833 
2104 
1133* 

1044 1046 1048 1055 1058 1060 10ft7 1077 1096 1094 1099 1103* 
2497* 2761 
1505* 2201 2232 

443 1593 2260 2502 2703* 2706* 2709 2710 27S2* 2714* 2772 
2188* 
21901 
2553 



2396* 

1643* 2587* 

2699* 

551* 576* 590 956* 2223 

448* 571* 590* 2213 2219 2223* 2357 2362* 



2256* 2862* 

2977 

2670 

2864 

2796 2645* 2848 2873 

2861* 
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SEQ 0361 



HERRJ 


OlfiltS 


3653* 


3873 
























HERR4 


016130 


26591 


3875 
























HFLAG 


001311 


3711 


























MINUS 


001396 


403t 


3334» 
























HOD 


010574 


16971 


3944 
























HODADR 


001133 


3e9t 


63l« 


1035 


1043 


1096 


1070 


1434 














MODCNT 


001015 G 


371 


343* 


957» 


960 


964 


971 


1941* 


1549 


1555 


1572 


1576 






MODCTR 


001016 G 


37» 


343* 


530 


963* 


1599» 


















HODEND 


015615 


944 


3611* 
























MODPTR 


001040 


3631 


926» 


537 


948 


596» 


999* 


649 


1557* 


1664 


1704 


1811* 


1868* 




HODO 


016236 G 


33» 


442 


599 


1913 


1917 


1997 


1620 


1667 


1859 


2673* 








MORE 


007314 


14711 


























HOVBNK 


001330 


330« 


























HOVFLC 


001313 


373* 


























MOVING 


001373 


355f 


























MSCONT 


003010 


683 


685* 
























MSGD^ * 


104432 


1433 


2127* 
























MSGD. 


003150 


674 


721* 
























MSGDl . 


003340 


734 


737* 
























MSGPLG 


001314 


374i 


681» 


683* 


691 




















MSGNf a 


104411 


2109» 


























HSCN. 


003004 


674 


683* 
























HSGSf B 


104416 


2119* 


























HSCS. 


003774 


674 


681* 
























H8G« a 


104406 


450 


493 


458 


466 


1111 


1112 


1143 


1144 


1196 


1210 


1224 


1229 


1249 






1250 


1274 


1459 


1487 


1492 


1982 


1688 


1644 


1689 


1730 


1738 


1745 


1762 






1851 


3083 


3084 


3103* 


2191 


2199 


2173 


2254 


2255 


2259 








H8G. 


003110 


674 


707* 
























HSGl'. 


003136 


690 


702 


711* 






















MVCODE 


014060 


460 


1240 


1586 


2397* 




















MVDOHN 


001376 


358* 


























HXWBr 


001336 


333* 


1600» 


1603* 


1604» 


1609* 


1606* 


1607* 


1608» 


1609» 


1611* 


2354 


2356 




NEW a 


*•«••• U 


38 


153 


310 


333 


754 


601 


807 


814 


842 


876 


896 


1010 


1424 






1927 


1638 


3093 


2097 


2105 


2494 


2589 


2625 


2645 










NOMEH 


017636 


3773 


2860* 
























NOSWR 


014756 


453 


2488* 
























NSTOP 


001330 


378* 


582« 


1559# 


3309 


2234 


















HUHBEA 


001052 


368* 


836 


833 


911 




















NUMBER 


001046 


366* 


666* 


748« 


833* 


824 


829# 


830 


909 


912 










NUMBPA 


001050 


267* 


825 


831 


910 




















OACNV 


011512 G 


33* 

2871 


781 
2874 


783 


819 


821 


843 


845 


883 


914 


1630 


1633 


1743 


18781 


OACHVX 


011534 


761 


772 


779 


827 


833 


839 


851 


916 


1728 


1882* 


2868 






OACNVB 


011533 


1736 


1889* 
























OASCEA 


001113 


384* 


ie78» 


1887« 


1909 


1919 


1924 
















orrMx 


001330 


325* 


2798* 


2759» 






















OFFSET 


001233 G 


35* 


326* 


933 


937 


1533 


1937 


1551 


1595 


2226 


2499 








OFFSTD 


001334 


327* 


459* 


1339* 


1906» 


1589* 


















OFFSIN 


001226 


328* 


























OPEN a 


000000 


116* 


205 


309 


210 


232 


239 


736 


237 


238 


239 


240 


241 


242 






343 


344 


249 


246 


247 


248 


249 


250 


251 


252 


253 


254 


256 






358 


259 


360 


262 


263 


264 


265 


266 


2f.7 


268 


269 


27n 


271 






272 


273 


374 


279 


276 


277 


378 


279 


280 


281 


2«2 


2«3 


284 






386 


287 


388 


289 


290 


391 


292 


293 


294 


295 


296 


297 


298 






310 


311 


312 


313 


314 


3J9 


316 


318 


3'9 


321 


323 


324 


325 






336 


327 


338 


330 


331 


335 


336 


337 


338 


339 


340 


345 


346 



PASEND 004626 
PA8PEL 001033 G 
PASTOT 001032 
PCLEARa •»•»•• G 
POP70 a »••••« U 
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347 
364 
404 
672 

37* 
256* 
35* 
1 
1586 
2576 
91* 
115* 
195 
J674* 
1673* 
141* 
142* 
368* 
137* 
136* 
139* 
134* 
79* 
158* 
984 
1000 
76* 
139* 
140* 
37* 
198 
2173 

198* 
2160 
2164 

nil 

499 

493 

491 

360* 

392* 

480* 

1229 

1129* 

3133* 

1977* 

36* 

309* 

177* 

176* 

178* 

179* 

BS* 

87* 

89* 

14* 



HACYll 37(1006) 22-APR-77 J2f53 PAGE 109 

CROSS REFERENCE TABLE •- USER Sy"POLS 



PIRORGa 


177772 


PIROe a 


000004 


PIRO. 


005510 


POFF 


010522 


PON 


010522 


POPSP a 


005726 


P0p8P2a 


022626 


PPRES 


001306 


PRTY4 a 


000200 


PRTY5 a 


000240 


PRTY6 a 


000300 


PRTV7 a 


000340 


PS a 


177776 


PSCNT a 


000026 


PSENDA 


004714 


PSENDB 


004766 


PSW a 


177776 


PUSH a 


005746 


PU8H2 a 


024646 


PHRCNT 


001246 


PWRDN 


012636 


PNRFAI 


014594 


PWRFV 


OOO024 


PHRUA 


012713 


PWRUP 


013646 


OOVRFL 


014197 


OTSTA 


001760 


OTSTB 


001773 


0I8TC 


003004 


OUECNT 


001300 


OUECTR 


001037 


OOETST 


001703 


QUE* a 


104401 


QUE. 


005470 


RANDf a 


104430 


RAND. 


013066 


RANNUM 


001160 


RANHRK 


001163 


RBUFEAa 


000070 


RBUFPAa 


000066 


RBUFSZa 


000073 


RBUFVAb 


000064 


RDCOA a 


000103 


RDFGINa 


000104 


RDPBA a 


000103 


RDSERVa 


000101 



338* 

433 

3463* 

433* 

2174* 
3166* 
1143 

497* 
498 

901 
47« 
476* 
904 
3093* 
3093 

3123 

308* 
1978 



349 
369 
416 



28 
2027 
3619 



348 

368 

415 

979* 

258* 

387 

27 

1592 

2603 

426 
1137* 
2568 
2565 

1049 



217 



190 192 

559 920 

995 996* 
1007* 



1508* 
2163* 



350 
370 
420 



351 
371 



394 
372 



1572* 1573* 1574* 1575* 



30 
2141 
2628 



196 
982* 



2168* 
2166 



2164* 2166* 



2419* 

900* 

903* 

489 

480* 485* 

510 519 



1979 
1998* 



353 

2158 
2635 



t99 
986 



446 
7215 

2651 



1100 



215 

1526* 



355 
373 



4150 
2226 
7748 



J 169 



1133 

1635 



356 
374 



7ft0 
2383 
2763 



357 
375 



824 
24f>0 
2864 



358 
377 



909 
2406 
2868 



359 
378 



916 
2463 



362 

380 



1240 
2498 



SKO ri7iS2 



4ri3 



2513 
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SEQ 0263 



RDWHMI« 


000022 


es» 


























RELOe 


001!S3 S 


37» 


350* 


2330 


2702* 


2760* 


















RESIA 


012530 


2136 


2138* 
























RESINT 


012524 


191 


2137* 


2698 






















RESIV 


OOOOJO 


1911 


2689» 


2698* 






















RETRY 


001277 


359« 


























RLOOP 


012106 


1981* 


1997 
























RMODE 


001257 


3461 


447» 


503 


1241 


1244* 


1259 


1457 


1512» 


1522 


1580 


1583* 


1587* 


2175 


ROT 


001033 


2601 


2366* 


2368* 






















ROTBUF 


013000 


2197t 


2369 
























ROTBl 


013170 


2230t 


























R0TB2 


013226 


2229 


2239* 
























R0TB3 


013252 


2231 


2233 


2244* 






















ROTCHK 


013262 


454 


1681 


2252* 






















H0TC1T 


001264 


351t 


1273* 


16e8» 


2203» 


2208* 


















aOTCT 


001031 


2541 


1562* 


:564» 


1565* 


1566* 


1567* 


1570» 


1571 


2224 










BOTDIS 


014700 


1699 


2479* 
























ROTENB 


014630 


2259 


2471* 
























BOTI 


001261 


348* 


1560 


2197 


2257 


2701* 


2753« 
















ROTL 


001262 


349* 


449« 


1680* 


]687» 


2199 


2211 
















ROTN 


001305 


366* 


2368 
























ROTNUM 


nnl266 


352* 


1273 


1688 


2208 




















ROTorr 


010542 


1687* 


2575 
























ROTON 


010526 


1680* 


2571 
























botsiz 


O0127O 


j33» 


























ROTXT 


013260 


2198 


2204 


2210 


2212 


2214 


2222 


2238 


2243 


2245 


2247* 








RSTAT 


001066 


274* 


624» 


641 


e4e« 


1439* 


















BSTPT » 


000062 


174* 


558 


980 






















R8T04 


012256 


1482 


1931 


1960 


2000 


2037* 


2330 


2515 














RTTKI ■ 


104423 


2129* 


























RTTK. 


012056 


1967* 


212S 
























RTTl 


002620 


644* 


2694» 
























RUN 


O07420 


470 


1505* 


2541 






















RUNC 


007664 


1521 


1549* 
























BUND 


010102 


1552 


1585* 
























RUNRCS 


007476 


970 


1515* 


2194 






















RUNPrL 


001274 


356* 


554 


1511» 


2169* 




















RUNSVC 


002012 


509* 


























SAVHI 


001120 


288* 


2262* 


2272* 


2274 




















SAVLO 


001116 


287* 


2263» 


2264* 


2265* 


2266» 


2267» 


2268* 


2269* 


2270» 


2273 








.AV04 


012244 


1367 


1445 


1461 


1889 


1939 


1977 


2029* 


2288 


2497 










IBADR M 


000052 


169* 


1373» 
























li^KNOS 


001360 


404* 


2328» 
























II L 


010422 


1649* 


2547 
























;i TBUF 


016606 


445 


2689* 
























HTCMl 


017120 


2746* 


























II TCOM 


017106 


2740 


2742 


2744* 






















IITKT 


017106 


2720 


2743* 
























IfTMBF 


010126 


1579 


1592* 


2244 






















IE TUB 1 


010166 


1597 


1600* 


2242 






















IFTXT 


017214 


2707 


2752 


2763* 






















IHbPT ■ 


000000 


1 


28 


146 


222 


286 


307 


340 


379 


405 


446 


455 


549 


855 






940 


969 


977 


983 


989 


996 


998 


999 


1241 


1250 


1252 


1269 


1384 






1395 


1400 


1408 


1418 


1504 


1509 


1511 


1516 


1592 


1598 


1613 


1673 


1691 






7026 


2062 


2070 


2137 


2146 


2148 


2159 


2163 


2175 


2178 


2190 


2227 


2230 






2247 


2248 


2262 


2278 


2335 


2339 


2344 


2373 


2397 


2400 


2429 


2463 


2471 
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111 PUT 


007404 


itlS 


010454 


iLISA 


010454 


itlSB 


010470 


ILISC 


010502 


ILtSD 


010506 


iLtSE 


010512 


ILtSL 


010476 


l«CDE » 


"40000 


iPeoT 


016546 


IPCFLG 


001010 


JPCINTe 


000024 


IPAAV 


001136 


IPGPEC 


016606 


IP 


001156 C 


IRETBN 


001056 


ISPO ■ 


177572 


38P3 » 


172516 


START 


001414 


jT.T * 


mnozo 


ITATl . 


000021 


ITBF* 


01ft672 


JTOP 


001024 


IIIMARY 


014136 


IVBO ■ 


000032 


IVRl > 


000034 


!V»3 « 


00003S 


iVR3 ■ 


000040 


JVR4 ■ 


000042 


IVRf » 


000044 


IVRl ■ 


000046 


lYSI NT 


001244 


lYSI PI 


O01256 


IY8I PR 


014512 


list TM 


«01316 


r»B| OR 


001064 


fBNl WB 


012044 


rrLjG 


001317 


fiTIE 


O14062 


rKB 


001150 G 


rits 


001146 r. 


ropj2s 


012174 


rpB 


001154 G 


rps 


001152 G 


rRAix « 


000024 


TBCJ 


004772 


rpcji 


005000 


TRCJB 


005016 


mcjc 


005002 


rBcic 


001070 


rRcisM 


001072 


rpc^ 


000014 


TBPINT 


012404 



2539 


2576 


2582 


2617 


2673 


2675 


2681 


2699 


2742 


1497* 


1709 
















1651 


1660* 
















1661* 


















1509* 


1649* 


1655* 


1665* 












1662 


1667« 
















1668* 


1671 
















1510» 


1650* 


1656* 


1670* 












1663 


1666* 


1669 














94* 


















432 


472 


1237 


2145 


2158 


2167 


2676* 






237* 


1453 


1455* 


1489* 


1498* 










157* 


553 
















295* 


632* 


1034 


1050 


1072 


2338 








2140 


2146 


2678* 














36 > 


307i 


435* 


437 


439* 


451 


689 


733 


653 


270* 


1456 


1497* 














79* 


2186* 
















80* 


















227 


229 


322 


333 


397 


431* 


2193 


2683 




1541 


5z5 


535 


540 


549 


524 


625 


623 


939 


1004* 


1439 


1528* 


1529 


1531 


1535 


1539 


1542 


1545 


155* 


















2701* 


















249* 


513 


518 


950 


958 


2207* 


2209 


2236* 




1249- 


2410* 
















160* 


1026 


1374 














161* 


















162* 


















163* 


















164* 


















165* 


















166* 


553* 


633 


1071* 


1431* 


1441 








337* 


1507* 


2147* 














345* 


473* 
















2151 


2457* 
















376* 


















273* 


685* 


699 


803* 


878 










1942 


1963* 
















3771 


















450 


2400* 
















36* 


304* 


1165 


1176 












36* 


303* 


475* 


1164* 


1197* 


1248* 


2046 






2008* 


2708 


3876 














36* 


306* 


1356* 














36* 


305* 


1299* 


1330* 












2087* 


2091* 


2093* 


3095* 


2097* 


2099* 


2101* 


2103* 


2105 


2115* 


2117* 


2119* 


2121* 


2123* 


3125* 


2127* 


2129* 




193 


1012* 
















1014* 


1017 


2693* 














1018* 


















1013 


1015* 
















275* 


500 


647 


650* 


1018* 










276* 


646 


1019* 














193* 


















202 


2074* 

















2748 



1632 
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SEO 0265 



TRPI IM 
rRPUB 

rpp\ 
rpp! • 

rST^EM 

rsTH 

rST»2 
rSTM 

rrpjv 

TTSfVl 

rtvisY 
rryi yr 

TTYIRV 

rypj DP 

TYPC TR 
rVPlAT 

r»pi 

lYPIB 
IYP!C 
TYPID 
TYPIE 
TYPIL 
TYPIN 
TYPIO 
TYPIl 
TYPI IM» 
lYPJL ■ 
TYPt UE 
lYPtX 
TYP« . 
TYPJl 
IYP{ 1 . 
TYPO 
TYP{2, 
TYPO, 
TYP<4. 
TYPf ET 
TYPH 
TYPI 2 
TYPI J 
TYPI 4 
TYPI 5 
TYPJ VC 
TYPI »B 
UIPJRO* 
UlPIRl- 
UIPJR2C 
UIPJ R7a 
UlPt ROB 
UIPIRJa 
UlPt R2* 
UIPIP7* 
UHOI E « 
MAS! DPS 
WBri A 



012516 
012446 

00003* 

011000 

017222 
017330 
017442 
017530 
000064 
00S426 
001014 
001240 
001410 
001406 
001104 
OOUIO 
004376 
006356 
006466 
006502 
006552 
006546 
006600 
006340 

onus 

006342 
017572 
000454 
001007 
005264 
005324 
001100 
005336 
001102 
005250 
005150 
005102 
001106 
001124 
001126 
001130 
001132 
001134 
002650 
002732 
177640 
177642 
177*44 
177656 
177600 
177602 
17760* 
177616 
140000 
000054 
001214 



2079 


2129* 














2078 


20eB* 














2021 
















669 


2078 


2086* 












2746 


2769* 














27901 


2806 














28171 


2834 














28381 


2856 














216* 
















427 


499 


1290 


1321* 


1354 


1355 






241» 


494 


660* 


711* 


902* 


946* 


996* 




335* 


1195» 


1196 












427* 


1290» 


1338* 


1344* 


1350# 


1354* 






216 


426* 














281* 


1292* 


1321 


1334» 










283* 


497» 


1357* 












722 


727 


730 


744 


747 


751 


811 


927* 


703 


710 


736 


869 


873 


875 


886 


890 


1322 


1334* 














13371 
















1350* 
















1347 


1349* 


1353 












1336 


1339 


1345 


1351 


1356* 








694 


855 


863 


941 


989 


1279* 






1*8 


659 


930 


1110 


1116 


2053 


2054 


2680* 


1280* 


1293 














1481 


657 


928 


1114 










147* 


148 


2055 


2680 










236* 


492 


663» 


933* 


1106 


1118* 






1080* 
















1094* 


2094 


2096 


2108 


2118 








279* 


1108 


1H0« 


1114 


1116* 


1117* 


1119* 


2053* 


1099* 


2102 














2B0* 


657 


659» 


661 ^ 


662* 


928 


930* 


931 


1076* 


2098 


2100 


2106 










1054* 


2124 














1041* 


2126 














282* 
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1331 












290* 


1293» 


1329 












291* 


1294 


1324 
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496 


657* 














669 
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93* 
















171* 


1410* 














323* 


2241» 


2352 













1282 



932* 1108 
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SF:(5 0266 



AtS. 



001023 




248* 


1516* 


2225* 


2359 




















001212 




322* 


1593* 


2215 


2239* 


2351 


















000076 




180* 


1592* 
























000074 




179* 


1386 


2350 






















000100 




181* 


























000102 




182* 


























001216 




324* 


1594* 


1595* 


1596 


1604 


222S 


2227* 


2228 


2237* 
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34* 


2503 


2522* 
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34* 


398 


2518 


2534* 




















000222 




89* 


























001026 




251* 


1547* 


1562 


1568 




















000005 




153* 


552* 


2359 


2361* 




















001030 




253* 


























001062 




272* 


1712 


1752 


1771* 


1791* 


1810* 


1833 


1835 


IR3<>* 


1841 


1848 


1856* 
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317* 


























001302 




363* 


1571* 


2221* 


7224* 




















015576 




697 
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2607* 






















017752 




31* 


187* 


200 


204* 


213* 


220 


226* 


22P* 


381* 


401* 


402* 


1136 
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1396 


1426 


1468 


1504 


1543 


1546 


1610 


2413 


2494* 


2541* 


2544* 


2547* 


y^so 






2553* 


2556 


2559* 


2562 


2565* 


2568 


2571* 


2575 


-2615* 


2677* 


26791 


2680« 


268 2 
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